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APPENDIX A: SAMPLE DEBUGGING DIALOGUE 
This append!* contains a sample ALADDIN dialogue from debugging the 
program in Figure Al which finds the maximum, minimum and total of a 
list of positive numbers. 
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00100 
00101 
00102 
00103 
00104 

00105 

00106 

00107 
oono 

00111 
00112 

00113 

00114 

00115 

00116 

00117 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00130 



000100 

030123 START 

021000 

040131 

040132 

040133 

151400 NEXT: 

021000 

101112 

O63O77 

024131 

IO6513 

040131 

024132 

122512 

040132 

024133 

107000 

044133 

000105 

000124 .LIST: 

000005 LIST: 

000003 



000002 
000007 

177777 
000001 



MAX: 



000001 MIN: 
000001 TOTAL: 



.LOG 
: LDA 

LDA 

STA 

STA 

STA 

INC 

LDA 

M0VL# 

HALT 

LDA 

SUBL# 

STA 

LDA 

SUBL# 

STA 

LDA 

ADD 

STA 

JMP 

LIST 

5 

3 

2 

7 

-1 

.BLK 

.BLK 

.BLK 

.END 



100 

2,. LIST 
0,0,2 
O.MAX 
O.MIN 
0, TOTAL 
2,2 
0,0,2 
0,0, SZC 

1,MAX 

0,1, SNC 

0,MAX 

1,MIN 

1,0, SZC 

O.MIN 

1, TOTAL 

0,1 

1, TOTAL 

NEXT 



; 



ADDRESS OF LIST INTO AC 2 
FIRST NUMBER IN LIST INTO ACO 
FIRST NUMBER IS THE MAX, 

MIN, 
AND TOTAL 
BUMP AC2 TO THE NEXT NUMBER 
NEXT NUMBER INTO ACO 
CHECK FOR THE END OF THE LIST 
YES — STOP 

CHECK IT AGAINST THE CURRENT MAX 
IT'S BIGGER, SO UPDATE THE MAX 

CHECK IT AGAINST THE CURRENT MIN 
IT'S SMALLER, SO UPDATE THE MIN 

ADD IT TO THE TOTAL 

KEEP GOING 

LIST OF NUMBERS 



END-OF-LIST MARKER 



Fig. Al. Sample program to be debugged. 
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? s 

SYMBOL TABLE 
LOCATION SYMBOL 



OO5372 
OO5376 
005402 
005406 
005^12 
005416 
005422 
005426 
005432 
OO5436 
005442 
005446 
005452 



*ACO 

*AC1 

*AC2 

*AG3 

*CBIT 

*PC 

START 

NEXT 

.LIST 

LIST 

MAX 

MIN 

TOTAL 



ADDRESS 

000213 

000214 

000215 

000216 

000217 

000220 

000100 

000105 

000123 

000124 

000131 

000132 

OOOI33 



? B $ 1 = 1 $ 
? E 



(use an always-true assertion to run to completion) 



ADDR 



INST GARRY AC-0 



AC-1 



AC -2 



AG -3 



HALT: 000110 O63O77 
PREVIOUS: 000107 101112 

? I $ TOTAL = 21 $ 
TRUE 



1 
1 



1?7??7 000021 000130 000177 
17777? 000021 OOOI30 OOOI77 



? I $ MAX = 7 $ 

FALSE ( tes t data used should have MAX = 7 — error) 

? I $ MIN = 2 $ 
TRUE 



? F 



DYNAMIC FLOW TRACE 



000107 > 000111 (00001' 

000122 > 000105 (00001* 

000107 — > 000111 ( 00001 i 

000122 > 000105 ( 00001* 

000107 > 000111 (00001 

000112 > 000114 ( 00001 i 

000115 — > 000117 (00001) 
000122 — > 000105 (00001) 



(MAX update was skipped with the 7) 



? B $ *PC <> 114 : *PC - 114 & MAX>= *AC0 $ ( asser t MAX update is 
? M 220/000102 100 ( res et *PC to start of progSm)™" CO ~ eCtly) 
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? E 

-™!_ INST CAERY AC -° A " 1 AG-2 AC-3 

J£2S?» °° 0112 ' °^132 """ 000007 000002 OOoS 0001 _ 77 
PREVIOUS: 000112 106 5 1 3 1 00000 7 000002 OoSlg oX£ 7 

? M 112/106513 106512 (skip condition W as wrong on MAX test - should 

? M 220/000114 100 (resef^") 1 - 6 ' ' *"** ±f ^ " ""* >== ° } 
? E 

ADDR INST CARRY AC-0 AC-1 AC-2 AC-3 

ssusss ii T si si s 2 "ffls 



? ™° TAL = 21 & MIN = ^ & MAX = 7 $ ( Check all the r?sults) 



177777 000021 000130 000177 

(check all the re£ 
(all are correct) 
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APPENDIX B: SUMMARY OF ALADDIN COMMANDS 

IMs appendix contains a summary of the ALADDIN command syntax. 

Notes: l) All user-supplied portions of the commands are 
underlined. 

2) "n" is any valid accumulator number (0-3 for 
the NOVA). 

3) "xxxxxx" and "yyyyyy" are any valid 16-bit octal 
strings (OOOOOO-I77777). 

*0 "assertion text" can he any properly formed Boolean 
IflmmM 10 " ^taining user program symbols, reserved 
ALADDIN symbols, octal constants, logical/relational 
operators and arithmetic operators; also, parenthe- 
sizing of subexpressions is allowed. 

5) "aaaaaa" is any valid octal address ( 000000 to the 

maximum address of the machine being used). 



Command 



Meaning; 



A AC-n/xxxxxx v^jjy 

A AC-n/xxxxxx yyyyyy ^ 

B $ assertion text$ 

E 



I $ assertion text$ 



M aaaaaa/x xxxxx Qy 

M aaaaaa/x xxxxx yyyyyy 'S. 



Examine contents (xxxxxx) of accumulator n and 
leave it unchanged. 

Examine contents (xxxxxx) of accumulator n and 
change it to yyyyyy. 

Enter a breakpointing assertion. 

Execute the user program subject to the latest 
breakpointing assertion. 

Dump the dynamic flow table from the last execution. 
Evaluate an immediate assertion. 

Examine contents (xxxxxx) of memory location aaaaaa 
and leave it unchanged. 

Examine contents (xxxxxx) of memory location aaaaaa 
and change it to yyyyyy. 

Dump the debugger symbol table. 



Fig, A2. ALADDIN command summary, 
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APPENDIX C: SUMMARY OF ALADDIN ERROR MESSAGES 



Message 

. . ."•-INVALID ACCUMULATOR 



■INVALID CHARACTER 



-INVALID COMMAND 



*****ERROR***** ATXT OVERFLOW 



*****ERROR***** INVALID TOKEN NEAR".." 



*****ERROR****# IPS OVERFLOW 



*****ERROR***** TOS OVERFLOW 



Meaning 

Identifies an invalid accumulator number while 
processing an "A" command. 

Identifies an invalid character during input of 
an octal constant or address. 

Identifies an invalid command mnemonic input to 
the command monitor. 

Indicates overflow of the assertion text "buffer 
while inputting an assertion. 

Indicates the vicinity of an error found in 
the syntax of an assertion. 

Indicates overflow of the immediate polish stack 
while performing the syntax check of an assertion. 

Indicates overflow of the temporary operator stack 
while performing the syntax check of an assertion. 



*^**ERROR***** UNMATCHED PARENTHESES Indicates an improperly parenthesized assertion. 

Fig. A3. ALADDIN error message summary. 



On 



3? 



APPENDIX D: ALADDIN SOURCE PROGRAM LISTING 
This appendix contains the complete source for the version of 
ALADDIN described in this thesis. This code was written in Data 
General's NOVA assembly language. It was assembled on a NOVA 1200 
system with 32K of main memory and 3.75 megawords of disk storage 
running version 5. 01 of the Real Time Disk Operating System (RDOS). 
The object code was executed on an 8K NOVA system and also a kK 
SUPERNOVA system. 
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ALADDIN D L b u 6 G E R II It J ^p"********************** 

: ♦+»*+***********♦******+ ********************** * * 

: ^ *♦*******♦***»*****•*. ****in**niiiiiii ir ********************************* 

********* + ** + \°* **\I*^L\***, "** ** ...;. D D H E s s c s 



: ♦ * * * « 


*********** 


* 


page 


:*■»**.» 


*********** 




.LOC 1 




T1SR 




• Loc mt 


" ' i> S K ; 


077777 


„. pFp; 


"S 


■i"pch; 


13 7 


'\ <? T R x : 


»* 


r, T v T It ; 


617 


" t vtp: 


.PLK 1 


mm'i : 


0040 on 


■< T T5: 


02000 


■< T "f 6: 


oniooo 


" t t7: 


4 


, ■ T T p • 


0200 


" t t15.; 


onooui 


' ■ ■ i i* s c : 


0003 77 


i. "M ON; 


M ' 

• 


r-.f-v/\; 


" t 


' '*' : 


01b 


' ' f ' T n x : 


11 


.,r-rr (•; 


• BLK 1 


" T r. : 


"fl 


"'ri : 


•n 


i • T r 3 : 


"'5 


■'Tr7: 


"7 



DIRECT INTERRUPTS TO "TiSR", 



15-BIT ADDRESS MASK 
ASCII "X" 

ASCII BACKWARDS ARROW 
ASCII '•*" 
ADDRESS OFFSET 
ASSERTION TEXT 
BIT 4 MASK 

MASK 

MASK 

MASK 

MASK 
MASK 



TELETYPE INPUT 
SERVICE ROUTINE 



TO LAST ATXT ENTRY 
BUFFER PuINTFR 



5 
G 
7 
8 
15 



BIT 

PIT 

BIT 

BIT 

BIT 

ASCII 

ASCII 

ASCII 

ASCII 

ADDRESS OFFSET 

CURRENT NUMBER 

ASCII "0" 

ASCII "1" 

ASCII "3" 

ASCII "7" 



CHARACTER MASK 

«:■■ 

CARRIAGE 



RETURN 

TO LAST UFT VECTOR ENTRIES 

OF DFT VECTOR ENTRIES 
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i ' T C- 9 : 


"9 




1 "/iSK : 


000377 




i"- 7 : 


ii 

• 




pmgn: 


"S 




h <:r ; 


033 




t ^: 


ii — 




f,T ; 


"> 




h"jsk : 


063077 




i '-^sk: 


001400 




1 n c |L' ; 


77 




i c<=P; 


.BLK 


1 


.""".'< rk; 


170000 




i r 7 a ; 


"A 




i. r t 7 : 


"7 




it: 


012 




i "i^f: 


000000 




itpt: 


000001 




1 n/iR^i; 


■••( 




i. T : 


'*< 




^ign: 


II - 




-Ntrrl • 


-1 




* ,r u ap : 


,BLK 


1 


"'FuAl : 


.BLK 


1 


" r <*A2: 


.BLK 


1 


<' r U A3: 


.BLK 


1 


nn,rY: 


.BLK 


1 


■"-!. pc : 


.BLK 


1 


h-'/isk: 


177400 




ni rAO : 


.BLK 


1 


"i r/M : 


.BLK 


1 


"•.rA2: 


.BLK 


I 


"i r/\3: 


.BLK 


1 


•M.rcr: 


.BLK 


1 


Mi.rPc: 


.BLK 


1 


n-i/«SK : 


000007 





FIELL MASK 



ASCII "9" 

MRI DISPLACEMENT 

ASCII »." 

ASCII •'$•« 

ASCII ESCAPE 

ASCII »=» 

ASCII ">" 

HALT INSTRUCTION MASK 

MRI INDEX FIELD MASK 

ADDRESS OFFSET TO LAST APS 

IMMEDIATE ASSERTION POLiSH 

MRI JMP/JSR MASK 

ASCII "A" 

ASCII »Z»' 

ASCII LINE FEED 

LOGICAL FALSE IN POLISH STACK EVALUATION 

LOGICAL TRUE IN POLISH STACK EVALUATION 



ENTRY 
STACK 



POINTER 



ASCII 

ASCII 

ASCII 

-1 

CURRENT 

CURRENT 

CURRENT 

CURRENT 

CUHRENT 

CURRENT 

NEGATIVE 

PREVIOUS 

PREVIOUS 

PREVIOUS 

PREVIOUS 

PREVIOUS 

PREVIOUS 



ii ( ii 
»<ii 
it -ii 



USER 
USER 
USER 
USER 
USER 
USER 



USER 
USER 
USER 
USER 
USER 



ACO 
AC! 
AC2 
AC3 

CARRY BIT 
PROGRAM COUNTER 
DISPLACEMENT SiGN BIT 
USER ACO 
ACl 
AC2 
AC3 

CARRY BIT 
PROGRAM COUNTER 



EXTENSiON MASK 



OCTAL DIGIT BINARY VALUE 



MASK 
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"ry imc : 


.BLK 1 


"H. I"P , 


.BLK 1 


^ " £ s k : 


U n 


ij -icj; 


1 


<-> ■- c 2 : 


2 


h i c 3 : 


3 


» - o c (4 : 


4 


m "i c b ; 


5 


I^Cfc J 


b 


»j ^ c 7 : 


7 


hic£ ; 


10 


mic9; 


11 


h •-><; 1 o : 


12 


u -• <; 1 J ; 


13 


t'^TGfj: 


11 + 


■JMrTE. : 


042 


« p /» R n : 


") 


vTL M .* 


" ; 


si. ash: 


"/ 


n"/»CE; 


040 


spcp: 


.BLK 1 


sYvNO; 


.BLK 1 


i t«Sk: 


177775 


1 OC!W • 


77 


i t«:p : 


.BLK 1 


,""ro: 





. , c^: 


ACM 


. "-i. a: 


ALA 


. uai: 


ALA1 


. -m n : 


ALB 


.'M.n: 


ALN 


. a t p t : 


AFPT 


. atxt: 


ATXT 


.hchk: 


BCHK 



PROGRAM COUNTER INCREKEMING FACTOR 

l L **l° ENAB »-F DUMPING 1HE PREVIOUS CPU STATE 

POSITIVE DISPLACEMENT S AG N BIT EXTENSION MASK 

+ 2 

+ 3 

+ 4 

+ 5 

+ 6 

+ 7 

+ 8 

+ 9 

+ 10 

+ 11 

ASCII " + " 

ASCII QUOTE 

ASCII m)h 

ASCII hjh 

ASCII "/" 

ASCII » » 

SCRATCHPAD POLISH STACK POINTER 

CURRENT NUMBER OF ENTRIES IN USER SYMBOL TABLE 

TELETYPE INPUT INTERRUPT ENABLE MASK 

ADDRESS OFFSET To LAST 1 OS ENTRY 

TEMPORARY OPERATOR STALK POINTER 



"ACM", ACCUMULATOR EXAMINE/MODIFY HANDLER 
"ALA", ALADDIN MONITOR ROUTINE 



ADDRESS 

ADDRESS 
ADDRESS 



OF 
OF 
OF 



"ALA1", ENTRY POINT IN "ALA" 
„ nnn F Ofc COMMAND PROMPTING 

ADDRESS OF "ALB", ALPHABETIC CHARACTER VERIFIER 
ADDRESS OF "ALN", ALPHANUMERIC CHARACTER VERIFIfR 
ADDRESS OF ATPT, ALLOWABLE TOKEN PAIR TABLE 
ADDRESS OF ATXT, ASSERTION TEXT BUFFER 
ADDRESS OF "BCHK", BRE APPOINTING ASSERTION 
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. ""> r i" : 


BCM 


.''«: 


BPS 


.tgk; 


BRK 




02D 


. t?o: 


B?0 


. »"r I T : 


CO IT 


.ty: 


CPY 


."•ftc: 


DFTC 


.npTn; 


DFTD 


."pts: 


DFTS 


.^p: 


D>XP 


• r "rA(.: 


ECAC 


.|"r!": 


ECM 


."kac: 


EN AC 


.rqRl; 


ERR1 


. r RR2: 


ERR2 


.F-RR3: 


ERR3 


. trri*: 


ERR<+ 


• r fR5; 


ERR5 


.TCPfe; 


ERR6 


• «-RR7: 


ERR7 


. rqr?fi; 


ERR8 


.r r iw : 


FCM 


. " a t : 


GAT 


."^Tr: 


GETC 


. l m t : 


MLT 


. t r * : 


ICM 


. T f s : 


IPS 


. Mf. W . 


MCM 


."ics: 


NFWAO 


. *-T k rj ; 


NTKN 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
» ADDRESS OF 



? ADDRESS OF 
» ADDRESS OF 

ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADORESS OF 
ADDRESS OF 
ADDRESS OF 
5 ADDRESS OF 
ADORESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 

ADDRESS OF 
ADORESS OF 



EVALUATION ROUTINE 
"BCM", BREAKPOINTS ASSERTION HANDlFR 
BPS» BREAKFOiNTlMG ASSERTION POLISH STACK 
"BRK", BREAKPOINT ROUTINE 

mrohh' UJUJS* T ° D " IMA L CONVERSION ROUTINE 

"620", BINART TO OCTAL CONVERSION ROUTINE 

"CBIT", CAKRT BIT DUMPING ROUTINE 

"CPY", CPU Si ATE VECTOR COPYING ROUTTNE 

DFTC» DFT COUNT VECTOR 

DFTD, DFT DESTINATION VECTOR 

OFTS, DFT SOURCE VECTOR 

"DMP", CPU STATE DUMP ROUTINE 

"ECAC", CURRENT ASSERTION TEXT 

CHARACTER EXAMINING ROUTINE 

"ECM", EXECUTION HANDLER 

"ENAC", NEXT ASSERTION TEXT 

CHARACTER EXAMINING ROUTINE 
ERRK INVALID CHARACTER) ERROR MESSAGF 
ERP2(T0S OVERFLOW) ERROR MESSAGE 
ERR3(IPS OVERFLOW) ERROR MESSAGE 
ERRK INVALID TOKEN) ERROR MESSAGE 
ERR5(UNMATCHED PARENTHESES) ERROR MESSAGE 
ERR6(ATXT OVERFLOW) ERROR MESSAGE 
ERR7<INVALIQ ACCUMULATOR) ERROR MESSAGE 
ERR8(INVALI0 COMMAND) ERROR MESSAGF 
"FCM", DYNAMIC FLOW DUMP HANDLER 
"GAT", ASSER1ION TEXT INPUT ROUTINE 
"GETC", TELETYPE INPUT(SINGLE CHARACTER) 
"HLT", PROGRAM HALT ROUTINE 
"ICM", IMMEDIATE ASSERTION HANDLER 
IPS, IMMEDIATE ASSERTION POLISH STACK 
"MCM", MEMCRY EXAMlNATlCN/MOUIFICATInN 

HANLLER 
CURRENT ACCUMULATOR SAVE AREA 
"NTKN", TOKEN EXTRACTION ROUTINE 
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, nr T : 


OCT 


. "lti: 


OUT1 


.it t?: 


0UT2 


."t t 3 ; 


OUT3 


. ii T^ : 


OUT** 


. -M T5; 


OUTS 


. ^LTf.: 


0UT6 


. "M T7: 


OUT 7 


. ->i Te: 


0UT8 


.^l Ti; 


OUT 9 


."^LTA: 


OUTA 


. rt LTP; 


OUTB 


. ~i. tc: 


OUTC 


. -On: 


OUTD 


."tTf ; 


OUTE 


•^itf: 


OUTF 


. ^ltg: 


OUTG 


.i?n: 


02B 


, n rPT: 


POPT 


. n c B : 


PSB 


. nc F. : 


PSL 


.i"> c hi : 


PSHI 


.'^ht: 


PSHT 


.pi tb: 


PUTB 


. n i tc: 


PUTC 


. ^ Ac; 


RNAC 


.^cf: 


SCM 


.sfs: 


SPS 


. ^ p ^ : 


SP3 


. ^rch: 


SRCH 


, "5YFR: 


SYMR 


. *y^u: 


SYMU 



AOUHESS OF 
ADOKESSES 



"OCT", OCTAL DIGIT VERIFICATION ROUTINE 



ADDRESS 
ADDRESS 

ADDRESS 
ADDRESS 
J ADDRESS 
! ADORESS 

ADDRESS 
ADDRESS 

ADDRESS 

ADDRESS 
ADDRESS 

ADDRESS 
ADDRESS 
ADORESS 
ADDRESS 



OF 



OF 
OF 

OF 
OF 
OF 
OF 

OF 
OF 

OF 

OF 



or 

OF 



OUTPUT 



TLM 



•PSB" 
•PSE'» 
•PSHI 
'PSHT 



BUFFERS 



•02B", OCTAL TO RINARY CONVERSION ROtlTINF 
•POPT", TEMPORARY OPERAND STACK 
POP ROUTINE 
POLISH STACK BUILDING ROUTINE 
POLISH STACK EVALUATION ROUTINE 
IMMEDIATE POLISH STACK PUSH ROUTINE 
TEMPORARY OPERAND STACK 
PUSH ROUTINE 
•PUTB", TELETYPE OUTPUT (BUF FERED ) 
•PUTC", TELETYPE OUTPUTCSINGLE CHARArTER) 
•RNAC", NEXT ASSERTION TEXT 

CHARACTER RETRIEVING ROUTINE 
'SCM", SYMBQt, TABLE DUMP HANDLER 
OF SPS» SCKATCHPAD POLISH STACK 
•SP3", TRIPLE SPACING ROUTINE 
•SRCH", SYMBOL TABLE SEARCH ROUTINE 
OF SYMR, RESEKVLD SYMBOL TABLL 
OF SYMUt USER SYMBOL TABLE 
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'cER. T RLK i ! JS?«r« 0F T ° S ' TEMP0KA *Y OPERAND STACK 

****:.!*** ADDRESS OF USER PROGRAM 

<H***4 *********** fc***,^ 

PAGE ZERO C ? S T IS T J ********************************* 

*************** + ******* + *********^^ + ,***^^ 

ALA ALA ALA A LA A LA I ***************************** 
^**************** + ^^, # ^,^ t ^^ ^ J L ^ /; L A ALA ALA ALA 

**** **************4^**** ************** ^^^^^^ 



"ladditj monitor 

emtry: 
input: 
output: 
required: 



n\ /i 



•i ; /i J 



ALA 
NONE 
NONE 
"AC!*", 
"IC!M" , 



"BCM", 
"MCM" , 



"ECM", "FCM", "GETC", 
"PUTB", "PUTC", "SCN!" 



.LOC 
IORST 

INTDS 

STA 

STA 

STA 

STA 

HOVL 

LDA 

AND 

STA 

LDA 

STA 

LDA 

LDA 

STA 

JSR 

JSR 



400 



0»NLWAC 

lfNEwAl 

2«NEWA2 

3,NEWA3 

0,0 

1»B1T1S 

1,0 

0,NEwCY 

Ot .USER 

O.NEWPC 

2,. PUTB 

0,.OUT1 

0,0.2 

1,2 

a). GETC 



CLEAR ALL I/O DEVICES 
DISABLE ALL INTERRUPTS 
INITIALIZE CURRENT USER 
CURRENT USER 
CURRENT USER 
CURRENT USER 
CURRENT USER 



initialize 
initialize 
initialize 

INITIALIZE 



ACO 
ACX 
AC2 
AC3 
CARRY 



BIT 



INITIALIZE CURRENT USER PROGRAM COUNTER 
OUTPUT THE COMMAND PROMPT TEXT 

ACO <-- THE COMMAND CHARACTER 



«m 





JSK 


oi.LUTC 




LOA 


2..CLIS 


m! "?: 


LDA 


1.0,2 




iwnvtt 


1,1. SNR 




JMP 


ALA3 




SUBfl 


0.1. SNR 




j.vp 


ALA** 




INC 


2*2 




JMP 


ALA2 


m i3: 


LOA 


2..PUTB 




LOA 


0. .ERR6 




STA 


DiCi2 




JSR 


1.2 




JMP 


ALA1 


»\ i r< 4 : 


LOA 


it .ClIS 




SUB 


1.2 




MOVZL 


2.1 




LDA 


2..ALA5 




ADD 


1.2 




JMP 


0,2 


.ii as: 


ALA5 




a i a 5 : 


JSR 


alt ACM 




JMP 


ALA1 




JSR 


cu.BCM 




JMP' 


ALAl 




JSR 


S.ECM 




JMP 


ALAl 




JSR 


ol.FCM 




JMP 


ALAl 




JSR 


ai.ICM 




JMP 


ALAl 




JSR 


bi.MCM 



ECHU IT 

AC2 <-- ADDRESS OF COMMAND LIST 

AC1 <-- NEXT CHARACTER IN COMMAND LIST 

CHECK FOR THE END OF 1 Ht. LIST 

YES -- INVALID COMMANL 

NO -- CHECK IF THIS IS 1 HE CHARACTER XNPUT 

YES -- BRANCH TO THE APPROPRIATE HANDLER 

NO — 60 BACK AND TRY THE NEXT CHARACTER 

IN THE COMMAND LIS» 

FLAG THE COMMAND CHARACTER AS INVALID 



CALCULATE THE DISPLACEMENT INTO THE JUMP TABLE ^ 
.ALA5 + 2 * (ADDRESS IN CLIS OF CHARACTER - .CLTS) 
AND BRANCH TO THE APPROPRIATE COMMAND HANDLER 



i ADDRESS OF COMMAND HANDLER JUMP TABLE 
"A" COMMAND -- ACCUMULATOR FXAMlNE/MOUIFY 

"8" COMMAND -- BREAKPLiNTlNG ASSERTION 

"E" COMMAND -- EXECUTE 

"F" COMMAND -- FLOW DUMP 

"I" COMMAND — IMMEUIAIL ASSERTION 

"N" COMMAND -- MEMORY EXAMINE/MODIFY 



H5 





JMP 


ALA1 




JSR 


cd.SCM 




JMP 


ALA1 


.H t^: 


CLIS 




r ■ i t 5 ; 


"A 
" F3 
"E 
"T 
"I 
»f* 
"S 






"s» command -- symbol table dump 

ADDRESS OF COMMAND LIST 
COMMAND LIST 



*************************** + + ************+***** m >** + ^ + *^t*^^ + + + + t m „^t^^^^ m 

A L A A L A ALA ALA A L A ALA ALA ALA ALA 
****************************** + **************** lk + **i c + ** + **^„ + t^„„m [ „^ ]ti 

^i**************************************************^**^**^***************** 

ACM ACM ACM ACM ACM ACM ACM ACM ACM 
**************************************** + ********** + * + **^^^ mWi + t L ^ il[ „ l¥mt ^ ttJtit 



"AC|*i" HANDLES THE ACCUMULATOR EXAMINE/MODIFY COMMAND 



entry: 
input: 
output: 
requirel 



ACM 
NONE 
NONE 
"B20 M i 



"OETC", "02B% "PUTB"i "PUTC" 



STA 
LPA 
LDA 
STA 
JSR 
JSR 
JSR 
LDA 



3.SACM 

*>..PUTB 

O..OUTB 

UiUi2 

1.2 

a.GETC 

cu.PUTC 

1»DIG0 



SAVE RETURN ADDRESS 

OUTPUT THE ACCUMULATOR NUMBER PROMPT 



! ACO <-- ACCUMULATOR NUMBER 
i ECHO IT 
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LUA 


2.U1U3 


ADCZtt 


2.0.SNC 


APCZtf 


0.1. SZC 


jWP 


ACM1 


LOA 


l.OMASK 


AND 


1.0 


LOA 


2. ,NACS 


ADD 


0,2 


STA 


2.AADDK 


LOA 


0. SLASH 


JSR 


ol.PUTC 


LDA 


0.3AADDR 


LDA 


2..B20 


STA 


0,0,2 


JSR 


1,2 


LDA 


G, SPACE 


JSR 


ol.PUTC 


LOA 


2, ,02D 


JSR 


3,2 


LDA 


2..02B 


LDA 


0.2*2 


LDA 


l.CR 


SUB« 


0.1. SZR 


JMP 


ACM2 


LDA 


U.0.2 


MOVP 


0.0. SNR 


JMP 


ouSACM 


LDA 


0.1.2 


STA 


U.3AADDR 


JMP 


aSACM 



SKIP IF ACO(ACCUMULATUR) > AC2(ASCII "3") 

SKIP IF ACO(ACCUMULATGR) >= ACKASCII "0") 

INVALID ACCUMULATOR NUMbER 

VALID ACCUMULATOR NUMBER -- MASK OFF ALL BUT 

BITS 13-15 TO GET ITS BINARY VALUE FOR OFFSETTING 

INTO THE ACCUMULATOR SAVE AREA 



AC2 <-- ADDRESS OF ACCUMULATOR'S SAVE LOCATION 
OUTPUT A SLASH 

OUTPUT THE ACCUMULATOR'S CURRENT CONTENTS 



OUTPUT THE UPDATING CONTENTS PROMPT 

CALL "026" TO LOOK FOR A STRING TO UPDATE 
THE ACCUMULATOR'S CONTENTS 



CHECK IF THE "02B" STRING DELIMITING CHARACTER 
*AS A CARRIAGE RETURN 
NO -- INVALID INPUT 

YES — CHECK THE »02B» STRING VALIDITY FLAG 

NO STRING INPUT — JUST A CARRIAGE RETURN 

A VALID UPDATING STRING — REPLACE THE ACCUMULATOR'S 

CONTENTS AND RETURN K 



<+7 



<r> i 



MrDR 



Me**: .BLK 



JSK 


dl.HUTC 


LDA 


2..PUTB 


LOA 


Oi .ERR7 


STA 


Ut0.2 


JSK 


1.2 


JMP 


oJSACM 


JSR 


ul.FUTC 


LDA 


2. .PUTB 


LDA 


0..ERR1 


STA 


, ♦ 2 


JSR 


1.2 


JMP 


alSACM 


.RLK 


1 



FLAb THE INVALID ALCUfcUuATOR NUMBER AND RETURN 



FLAG THE INVALID INPUT LHARACTER AND RETURN 



J ADDRESS OF ACCUMULATOR SAVE LOCATION BEING 

; EXAMINED/MODIFIED 

? "ACM" RETURN ADDRESS 



ACM ACM ACM ACM A C M A C ^ ACM ACM ACM 
BCM BCM BCM BCM BCM S C M BCM BCM qCM 



"OCf"" HANDLES THE BREAKPOINT ASSERTION COMMAND 



ENTRY.* 

input: 

output: 

required: 



BCM 
NONF 
NONE 
" P S H " 



h^h : 



STA 

L(jA 

JSR 
LDA 



3.SBCM 
2. .PSB 

1.2 

u.a.psB 



; SAVE RETURN ADDRESS 

? CALL "PSB" TO INPUT Ah ASSERTION AND BUILD 

! ITS POLISH STACK IN THE IPS STACK 
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i-C~o/ ] 



sr-ifiv ; 



IMOVtt 


U.U.SNR 


JMP 


a)SBCM 


LDA 


2.. IPS 


LPA 


3, ,BPS 


LDA 


0,0.2 


STA 


U.0,3 


LDA 


1,1.2 


STA 


1.1,3 


IMC 


2,2 


INC 


2.2 


IMC 


5n2 


IMC 


3,3 


LDA 


U.0.2 


STA 


U.G.3 


LDA 


1,1.2 


STA 


1,1.3 


MOVLP 


0,0. SMC 


JMP 


BCM1 


JMP 


aSBCM 


.BLK 


1 



J 



CHtLK FOR A VALID STACK 

MO -- JUST RETURN 

TES -- COPY THE IPS STALK To THE BPS STACK 



CHECK FOR A FENCE 

MO — MOVE THE NEXT EMhY 

YES -- RETURN 

"BCM" RETURN ADDRESS 



BCM BCM BCM BCM BCM 8 C iw B r M R r m 1 r Z 
C M E - C M ECM ECM LCM ECM FTM r r w 



"ECM" HAND! ES THE LXtCUTE COMMAND 



entry: 


ECM 


input: 


MOMF 


output: 


NOMF 


required: 


"BCHK", 



"BRK", "CPY", "HLT" 



f9 



t- '""l 



t r w 2 : 



STA 


v>»SECM 


LHA 


0»ZERO 


STA 


UiPOUMP 


LOA 


1, DFTMX 


STA 


ltDFTfjU 



LDA 


2» .DFTS 


ADD 


1*2 


STA 


0.0,2 


LOA 


2,.DFTC 


ADD 


1.2 


STA 


0,0,2 


IfjC 


lil 


STA 


ltDFMXl 


LDA 


2,.DFTC 


STA 


0i0i2 


IMC 


2,2 


DSZ 


DFWXl 


JMP 


ECM 


LOA 


OiTlMSK 


MSKO 


U 


NIOS 


TTI 


LOA 


2, .BCHK 


JSR 


1,2 


LHA 


U, 6). BCHK 


mov* 


0,0, SZR 


ul»'P 


LCM3 


JSR 


auBRK 


JMP 


cOSECM 



SAVE RETURN ADDRESS 

DISABLE THE PREVIOUS CPU STATE DUMPCPbUVP <-. 0) 

INITIALIZE THE DrT P01N1ER TO THE LAST ENTRY nF tuf 
CIRCULAR BUFFERS(DFTNC <.. DFTMX, AND SET ?Je Sniper 
AND DESTINATION FIELDS UF THIS ENTRY BOTH TO Z IT 
TO FORCE THE FIRST NON-SEQUENTIAL FLO* TO BE ENTERED 
AT THE BEGINNING OF ThE BUFFERS T L " 



\ (.DFTS + DFTMX) <-- 

<.OFTO + DFTMX) <-- 

DFMX1 <~- DFTMX + 1 

ALSO, ZERO OUT THE ENTIRE DFT COUNT VECTOR 



ACO <-. 177775(TELETYPE INPUT INTERRUPT ENABLF «fl«i 

DISABLE INTERRUPTS FROM ALL DEVICES EXCEPT 

THE TELETYPE INPUT 

START THE TELETYPE INFO] 

CALL "BCHK" TO EVALUATE THE BREAKPOINT ASSERTION 

CHECK IF IT EVALUATED TRUE OR FALSE 

TRUL — EXECUTE THE NEX1 INSTRUCTION 

FALSE — CALL "BRK" TC BREAKPOINT AND RETURN 



BFGIN THE INSTRUCTION INTERPRETATION PHASE 



50 



•v3 



iriTEfj 



t r w «4 : 



K«^ 



J MP 


. + 1 


J MP 


, + 1 


IMTDS 




LOA 


U,SNEwPC 


LDA 


l.HMASK 


SHb« 


U.ltSZR 


J HP 


ECM4 


JSR 


oj.HLT 


JMP 


oiSECM 


LDA 


1,JMASK 


AMOtt 


0»1»SNH 


JMP 


LCM6 


LDA 


1.P0S3 


STA 


ltFClNC 


STA 


G»ECM5 



JSK 


bi.CPY 


LDA 


UiNEWCY 


MOVR 


0.0 


LDA 


UtT'EwAO 


LDA 


l.NEWAl 


LDA 


2.NEWA2 


LDA 


3,NE WA3 


.RLK 


1 


DSZ 


PC INC 



ALLOW THE TELETYPE INPUJ TO INTERRUPT "ECM" 
BEFORE INTERPRETING THE NEXT INSTRUCTION 



ACO <-- NEXT INSTRUCTION 

AC1 <-- 063077(HALT MASK) 

CHECK FOR A HALT INSTRUCTION 

NOT A HALT — CHECK FOR A JMP OR JSR 

YES -- CALL "HLT" TO HALT AND RETURN 



ONLY 



AC1 <-- 1700 
CHECK FOR A 
A JMP OR JSR 
NOT A JMP OR 
IS THE ONLY 
PCINC <-- 3 
TRANSFER THE 
AND EXECUTE 
TO COPY THE 
PREVIOUS CPU 
CURRENT CPU 
THE INSTRUCT 



00<JUMP MASK) 

JMP OR JSR(bITS 0-3 ALL ZERO) 

JSR, SO A SKIP OF ONE INSTRUCTION 
POSSIBLE NON-SEQUENTIAL FLOW 

INSTRUCTION "IN-LINE" 
IT "PSEUDO-UIRECTLY" -- CALL "CPY" 
CURRENT CFU STATE SAVE AREA TO THE 

STATE SAVE AREA, THEN RESTORE THE 
STATE BEFORE. ACTUALLY EXECUTING 
ION 



INSERTION POINT FOR INSTRUCTION 

IF THERE IS NO SKIP. PCiNC WILL BE DECREMENTED 
TWICE TO 1 — IF THERE AS A SKIP, PCINC WILL BE 
DECREMENTED ONCE TO 2 
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(■ r w f, : 



r »• 7 : 



OS l 


PCINC 


STA 


3,NEWA3 


STA 


2,NtWA2 


STA 


l.NEwAl 


STA 


J ,NEWAG 


MOVL 


U»0 


LDA 


1.HIT15 


AMD 


liO 


STA 


OtNtWCY 


LDA 


UtCLDPC 


LDA 


it PC INC 


ADD 


ltU 


LDA 


1 »AMASK 


AMD 


0,1 


STA 


1,MEWPC 


JMP 


DFTl 


jsrt 


a.CPY 



LDA 


0»aiNEWPC 


LDA 


1,BITU 


AND« 


UtltSMK 


JMP 


LCM7 


LDA 


2.CLDPC 


IMC 


'i.%2 


LDA 


1, AWASH 


AMD 


1,2 


STA 


2»NEWA3 


LDA 


1,1 MASK 


ANDW 


0,1, SZR 


JMP 


ECM« 


LDA 


2 t DM ASK 



SAV/L NEW CPU STATE 



NEwPC <-- OLDPC + PCINL 



THAlt S ALL -- HANDLE 1 Ht DFT 
A JMP OR JSP. CAN ONLY ViUDIFy 
AND AC3, SO COPY THE CURRENT 
PREVIOUS CPU STATE SAVE AREA, 



UPDATE 

THE PROGRAM COUNTER 
CPU STATE TO THE 
DETERMINE THE 



NEW VALUE OF AC3(IF A w>SR>, AND DETERMINE THE 

ADDRESSING SCHEME TO GET THE NEW PROGRAM COUNTER 

ACO <-- INSTRUCTION BEING EXECUTED 

AC1 <-- 00U000(JSR MASK) 

CHECK FOR A JSR 

A JMP 

A JSR — NEWA3 <-- OLLPL + l 



AC1 <-- 001400(INDEX FIELD MASK) 

CHECK FOR PAGE ZERO ALDRFSSING 

NOT PAGE ZERO ADDRESSING 

PAGE ZERO ADDRESSING, 

SO EFFECTIVE ADDRESS <-- DISPLACEMENT 



VALUE 



FIELD 
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i- rn<a 



i-rvqj 



••/A: 



AND 
JMP 
LDA 

AfJO 



LDA 

LDA 

ANO» 

LDA 

ADD 

LDA 

AND 

LDA 

SUB* 

JMP 

LDA 

ADD 

JMP 

LDA 

SUOtt 

JMP 

LDA 

ADD 

JMP 

LDA 



ADD 
i-rvRl LDA 
AND 
LDA 
LDA 



U,2 
ECMB 
l.DMASK 
U,l 



i.PMASK 

2.BIT8 

1»2,SZR 

JtNMASK 

3,1 

2tIMASK 

0t2 

3.BIT7 

3,2,SZR 

ECM9 

2tOLDPC 

1,2 

L'CMB 
5tBlT6 
3»2»SZh 
ECMA 
2i CLDA2 

1,2 

EC MB 
2.0LDA3 

1.2 

1,AMASK 

If 2 

tSJNEWPC 

1.BIT5 



AC3 
AC2 



ACl <- 000377(DISPLACEMENT FIELD MASK) 
ScJl^^S^'ot'pAg^zVk^ 1 ? " SINCE THE ADDRESSING 

sS2£ed 7-biTnu^ber HF displacement is a 

ASSUME THE DISPLACEMENT IS POSITlVEtBlT 8 - n. 

<-- 000000 (POSITIVE SIGN B T EXTE^i?N" M SsKr 

So" ir, T ^ E D ;f p l- A «MENT-Is POSITIVE AS ASSUMED 

ACl <» C ? R 5pERi? 7 «2i t N D fc ?r VE SIGN 8IT "™«o2 MASK, 
u v l-'KOKLhLY SIGNED 16-RIT DISPL ACFMFmt 

AC2 <~ OOmoOUNOtX HELD MASKI NT 

AC2 <— INDEX FIELD 

rulr»~r 000tf00{R ELATIVt ADDRESSING INUEX 

CHECK FOR RELATIVE ADDRESSING 

NOT RELATIVE ADDRESSING 

RELATIVE ADDRESSING, 

SO EFFECTIVE ADDRESS <— OLDPC + 



MASK) 



DISPLACEMENT 



INUEX MASK) 



AC3 <— 001000UC2-BASE ADDRESSING 

CHECK FOR AC2-BASE ADbRtSSlMG 

NOT AC2-BASE ADDRESSING 

AC2-BASE ADDRESSING, 

SO EFFECTIVE ADDRESS <- 0LDA2 + DISPLACEMENT 

MUST BE AC3-BASE ADDRESSING, 

SO EFFECTIVE ADDRESS <- OLPA3 ♦ DISPLACEMENT 

EFFECTIVE ADDRESS IN Atfe 

ACO <-- INSTRUCTION BEING EXECUTED 

ACl <— 002000( INDIRECT ADDRESSING MASK, 
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AlMU« 


0,1, S2K 




LOA 


idiU»2 




LOA 


1 » AMASK 




AND 


1*2 




STA 


2,NEWPC 




u:«IP 


QFT1 


nr«, X] ; 


.BLK 


1 


v i~ r V ; 


.OLK 


1 




L'XECUTI 


ON PHASt 



"f'l : LOA 0.POS1 



STA 


U»PDUMF 


LDA 


OtOLUPC 


LOA 


l»NEwPC 


irjc 


0,2 


SUBJt 


1,2,SNR 


JMp 


oi.ECM? 


LOA 


2«DFTN0 


LDA 


3i .DFTS 


AOD 


2,3 


LDA 


2,0,3 


SUB 8 


0,2,SZR 


JMP 


UFT2 


LOA 


3..DFT0 


LOA 


2.DFTN0 


AOU 


2,3 


LOA 


2,C,3 


SUB ft 


l*2tSZR 


JMP 


UFT2 


LOA 


2 tEFTNO 


LOA 


3,.DFTC 


AOD 


2,3 



CHtCK FOK IIMUIKLCT AUUKtSSlNG 
INDIRECT — EFFECTIVE AUDRESS <— 



(EFFECTIVE ADDRESS) 



THAT'S ALL -- HANDLE THt DFT UPDATF 
DFT VECTOR LOOP COUNTER 
"EC*" RETURN ADORESS 

COMPLETE — UPDATE THE DYNAMIC FLOW TRACE 

AT LEAST ONE INSTRUCTION WAS EXECUTED, SO 
ENABLE THE PREVIOUS OU STA?E Du'pIpdumP <„ 



1) 



ACO < — OLDPC 

ACl <-- NEwPC 

AC2 <-- OLOPC + 1 

COMPARE OLDPC AND NEWPL 

JUST A SEQUENTIAL FLOW -- THROUGH WITH DFT UonArr 

NON-SEOUENTML - SEE U IT " dl" ENTRY^E 

AC2 <-- LAST ENTRY'S SOURCE 

CHECK IT AGAINST OLUPC 

NO MATCH — GO ADD THIS PAIR 



AC2 <-- LAST ENTRY'S LESTINATION 
CHtCK IT AGAINST NEwPC 
NO MATCH — GO ADD THIS PAIR 
BOTH SOURCE AhD DESTINAUON MATCH 
THE LAST ENTRY'S COUNT 



t SO INCREMENT 



AC3 <-- ADDRESS OF LAST ENTRY'S COUNT FIELD 
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nn?; 



tc.v2i 



ISZ 


0i3 


JMP 


o).E CM2 


LDA 


2.LFTN0 


INC 


d*2 


LDA 


3,DF TMX 


AQCZ# 


3.2.SZC 


LDA 


2, ZERO 


STA 


2 « DFTNO 


LDA 


3,,DFTS 


ADD 


2,3 


STA 


0,0i3 


LDA 


3,.DFTD 


ADD 


2,3 


STA 


1,0,3 


LDA 


3, .DFTC 


ADD 


2,3 


LDA 


0,POS1 


STA 


0,0,3 


JMP 


OJ.LCM2 


ECM2 





INCKEMENT COUNT OF LAST DFTC ENTRY 

THROUGH WITH DFT UPDATE 

ADO THE (OLDPC.NEWPCl) TRIP L E To THE DFT VECTORS 

AS THE NEXT ENTRY (DFTNO <~ dFTNO + 1) VLCT0RS 

S AC3 <-- DFTMX(MAXIMUM VALUE OF DFTNO) 

J SKIP IF AC2(DFTN0 + 1) <= AC3(DFTMX) 

! OVERFLOW — CIRCLE ARCulMD TO THE FRONT OF THE DFT 

! VECTORS(DFTNO <— 0) 

i DFTNO <- (DFTNO + 1) MuD (SIZE OF DFT VECTORS) 



LOFTS + DFTNO) <— OLDPC 



(.DFTD + DFTNO) <-- NEnvPC 



(.DFTC + DFTNO) <-- 1 

THROUGH WITH DFT UPDATE 

ADDRESS OF "ECM2", EN7R| POINT IN »ECM" FOR 

BREAKPOINT ASSERTION EVALUATION 



e c m e C n ec, et; rr; tt t; m t;t*TcT* 
::;:::;;:::::;::;:::::n^ 

CM FCM F C fo FCM FCM FCM F C M FCM rr» 



l "FCh" HANDLES THE FLOW TRACE DUMP COMMAND 



ENTRY: 

input: 



FCM 

NOME 
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output: 

required: 



NONE 

"B2P", "620" t 



"PUTB" 



K»i! 



h <"• n< t : 



STA 

IDA 

MOVtf 

JMP 

LDA 

LDA 

STA 

JSR 

LDA 

INC 

STA 

LDA 

INC 

LDA 

ADCZ# 

LDA 

STA 

Lf)A 

ADD 

LDA 

MOVtf 

JMP 

LDA 

LDA 

STA 

JSR 

LDA 

LDA 

ADD 

LDA 

LDA 



3.SFCM 

UtS.DFTC 

0»G»SNR 

WSFCM 

2. .PUTH 

0..OUT2 

0.0»2 

1.2 

0, DFTMX 

0.0 

0.DFMX2 

O.DFTNO 

0.0 

l.DFTMX 

l.C.SZC 

0.2LRO 

O.DFTNO 

2..0FTC 

0.2 

0,0,2 

O.O.SNR 

FCM2 

2. .PUTB 

U..0UT3 

0.0.2 

1.2 

2..DFTS 

l.DFTNO 

1,2 

0.0.2 

di .620 



J SAVE RETURN ADDRESS 

! 

CHECK COUNT FIELD OF FIRST DFT ENTRY 
ZERO COUNT -- NO DFT LNJRIES 
OUTPUT DFT DUMP HEADING 



; 



1) 



DFMX2 <— SIZE OF DFT VtCTORS ( DFTMX + 1) 

LOOK AT THE NEXT DFT ENIRY(DFTNO <— QFTNO + 

AC1 <-- DFTMX (MAXIMUM VALUE OF DFTNO) 

SKIP IF ACOIDFTNO + 1) < = ACKDFTMX) 

CIRCLE AROUND TO THE f-RyNT OF THE CFT 

VECTORS(DFTNO <-- 0) 

DFTNO <~ (DFTNO +1) MUD (SIZE OF DFT VECTORS) 



CHECK THIS ENTRY'S COtNl FIELD 
J ZERO COUNT -- SKIP IT 



J OUTPUT THE SOURCE ADDRESS 
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U f!U p 



nP!"X2 
src»«: 



STA 

JSR 

LOA 

LQA 

STA 

JSR 

LDA 

LOA 

ADD 

LOA 

LDA 

STA 

JSR 

LDA 

LDA 

STA 

JSR 

LDA 

LDA 

ADD 

LDA 

LDA 

STA 

JSR 

LDA 

LDA 

STA 

JSR 

DSZ 

JMP 

JiMP 

.BLK 

.RLK 



U . » 2 

1.2 

2..PUTB 

Ui .OUT«+ 

0»0«2 

1,2 

2. .DFTU 

l.DFTNO 

1.2 

0.0.2 

2, .620 

0.0.2 

1.2 

2..PUTB 

0..OUT5 

0.0.2 

lt2 

2..DFTC 

l.DFTNO 

1.2 

0.0.2 

2..B2D 

0.0.2 

1.2 

2 . . PUTB 

0..OUT6 

0.0.2 

1.2 

0FI«>X2 

FCW1 

aSFCM 

1 
1 



OUTPUT THE DESTINATION ADDRESS 



OUTPUT THE EXECUTION COuNT 



CHECK IF THAT'S 
< NO -- CONTINUE 
; YES -- RETURN 
: DFT VECTORS LOOP 



A FULL PASS AROUND THE VECTORS YET 



COUN1LR 



! "FCM" RETURN ADDRESS 
***************************** t*********^^^^^^^^ 
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F C M FCM FCM FCM F C M F C M FCM FCM FCM 
************************ *******************************************»**** <1 **i t + *, I 
********************** + + * + **»* + » + + # + + + ^ + # + # + + # ^^^ +# + ## + + # ^^^ +# ^ + i)r](ei(( + + ]>])i ^ # + <[ + ]([ + + 

I C M I C M I C M ICM ICM i C V I C M I C M T C « 

************************ ******************** **************** + * 1|( * ;(t *, !# * ## , < + # , kl ^, ( + 

"ICM" HANDLES THE IMMEDIATE ASSERTION COMMAND 



I rv : 



entry: 
input: 
output: 

required: 



icm 

NONE 
NONE 
"PSR", 



"FSE". "PUTB" 



s T C w : 



STA 
LDA 

JSR 

LDA 

MOV« 

JMP 

LDA 

LDA 

STA 

JSR 

LDA 

LDA 

LDA 

M0V8 

LDA 

LDA 

STA 

JSR 

JMP 

.BLK 



3«SICM 
2..PSB 

X.2 

o.a.psB 

0»0»SNR 

asiCM 

2..PSE 

o« .ips 

U*0»2 

2t,PSE 

U.l i2 

1..0UTC 

U.O.SZR 

l.,OUTD 

2..PUTB 

ltC»2 

1.2 

olSICM 

1 



SAVE RETURN ADDRESS 

CALL "PSB" TO INPUT AN ASSERTION AND BUILD 

ITS POLISH STACK IN THE IPs STACK 



CHECK FOR A VALID STACK 
NO — JUST RETURN 
* YES — CALL "PSE" TO tVALUATE IT 



» ASSUME IT Ift/AS FALSE 

5 CHECK THE "PSE" EVALUATION FLAG 

S NO -- IT WAS TRUE 

i OUTPUT THE APPROPRIATE VALUF MESSAGE AND RETURN 



"ICM" RETURN ADDRESS 
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I C M I C M I C M I c M I r M r **************************** 

♦*****************************,»*»;»»»»,' ;," 4 iJ " * C M I C M T C M 

***************************,*,^n^ 

M C M M C M H C N M CM M Tm T* **************************** 

-~****************************** + *****^^ 



"""'" HANDLES THE MEMORY EXAMINE/MODIFY COMMAND 



ill f" v • 



ENTRY: 

input: 
outpui ♦ 
required: 



STA 
LDA 
JSR 
LDA 
JSR 
LDA 
LDA 
LDA 
SUB# 

JMP 

LDA 

MQV# 

JMP 

JSR 

LOA 
LDA 
AND 
STA 
LDA 



3i SMCM 
O.SPACE 

a.pUTC 

2i .02B 

3,2 

2..02B 

U.2,2 

l.SLASH 

0,1. SZR 

MCV.l 

1,0,2 

1»1»SNR 

MCM1 

bl.PUTC 

0,1.2 

1,AMASK 

1,0 

0,MADDR 
O.SMADDR 



MCM 

NONE 

NONE 

"320", "02B", "PUTB", "PUTC" 

SAVE RETURN ADDRESS 

OUTPUT THE MEMORY ADDRESS PROMPT 

CALL »02B» TO LOOK FOR AN OCTAL ADDRESS 



W C A H S C A £ A ™ E '"° 2B " STh ^ G DELIMITI " G ""«*"« 
NO -- INVALID INPUT 

AFTtR^H^SLASH ""^ " DISPLAY ITS " N ™" 



MAODR <-- THE ADDRESS INPUT 

FETCH AND DISPLAY THIS LOCATION'S CONTENTS. 





LDA 


*..B20 






STA 


0.0,2 






JSR 


1*2 






LDA 


OfSPACE 






JSR 


oi.PUTC 






LDA 


2..U2B 






JSR 


5*2 






LDA 


2,.02B 


t 




LDA 


0.2,2 


• 
4 




LDA 


l.CR 


t 




SUB« 


0.1. S2R 


t 




JMP 


MCMl 


• 
• 




LDA 


0.0,2 


« 




MOVtf 


O.O.SNR 


J 




JMP 


aSMCM 


; 




LDA 


0.1,2 


• 




STA 


O.aMADDR 


• 




JMP 


aSMCM 


J 


corn/ 1 : 


JSR 


a.PUTC 


J 




LDA 


2,,PUTB 


; 




LDA 


0..ERR1 


t 




STA 


U.0.2 


• 




JSR 


1.2 


t 

t 




JMP 


cuSMCM 


t 


"itdr: 


.DLK 


1 


; 


•v'irf/j 


.BLK 


1 


• 
1 



I LEAVING IT OPEN FOK SEQUENT MODIFILATI 

t 
I 

I OUTPUT THE UPDATING CONTENTS PROMPT 

» CALL »02B" TO LOOK FOR A STRING TO UPDATF 

5 THE LOCATION'S CONTENTS UPOATE 



ON 



CHARArTrp TH L"« 2B " STH ^ G DELIMITING 
CHARACTER W A S A CARRIAGE RETURN 
NO — INVALID INPUT 



: ************ 

• M C 

;************ 
; ************ 



YES -- CHECK THE "02B M STRTwr wai t^t»v r- 
NO STRING INPUT - jJsi IcARRIAG^Rrn.R^ 6 
A VALID UPDATING STRING t m CHANGE THE Lr. 
CONTENTS AND RETURN CHANGE THE LOCATION'S 



FLAG THE INVALID INPUT CHARACTER AND RETURN 



^ S ^T%R^^E S N S BLUG "'"""/"OU.FICO 
**************************** + * +; n 
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****** ************ + *******************♦**» ^o^,*^,,^ 



"SCM- HANDLES THE SYMBOL TABLE DUMP COMMAND 



sr> 



sr*a 



entry: 
input: 
output: 
required: 



ST A 
LDA 
LDA 
STA 
JSR 
LDA 

LDA 

ADD 

STA 

LDA 

STA 

LDA 

LDA 

STA 

JSR 

LDA 

LDA 

STA 

JSR 

JSR 

JSR 

LOA 

LDA 

MOVS 



3fSSCM 

2..PUTB 

Oi.OUTE 

0,0*2 

1,2 

l»SYMNO 

0.POS6 

0,1 

ltNSDMP 

0».SYMR 

O.SADDR 

2,.PUTB 

0,.OUTF 

0,0,2 

1,2 

0,SADDR 

2,.B20 

0,0,2 

1,2 

&.SP3 

d).SP3 

2,SADDR 

0,0,2 

0,0 



SCM 

NONE 

NONE 

"B20", "PUTB", "PUTC", "SPi" 

SA\/E RETURN ADDRESS 

OUTPUT SYMBOL TABLE DUMP HEADING 



NSOMP <— SYMNO( NUMBER OF USER SYMBOLS) + 
6 (NUMBER OF RESERVED SYMBOLS) 



SAODR <-- ,SYMR(BEGINN1NG OF SYMBOL TABLE) 
OUTPUT NEXT SYMBOL'S SYMBOL TABLE LOCATION 



OUTPUT SYMBOL 
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LDA 


l.CMASK 


AND 


1.0.SNK 


LDA 


OtSPACt 


JSK 


ol.PUTC 


LOA 


0.0.2 


LDA 


l.CMASK 


AND 


liOtSNK 


LDA 


0, SPACE 


JSR 


ol.PUTC 


LDA 


0,1.2 


MOVS 


0.0 


LDA 


ItCMASK 


AND 


1,0, SNR 


LDA 


0, SPACE 


JSR 


a.pUTc 


LDA 


0.1.2 


LDA 


l.CMASK 


AMD 


1.0. SNR 


LOA 


o. space: 


JSR 


oj.PUTC 


LDA 


0.2.2 


MOVS 


0.0 


LDA 


l.CMASK 


AMD 


1.0. SNR 


LDA 


0. SPACE 


JSR 


fl.PUTC 


JSR 


a.sP3 


JSR 


a.sP3 


LDA 


0. SPACE 


JSR 


a.puTC 


LDA 


2.SADDR 


LDA 


0,3.2 


LDA 


2..B20 


STA 


0.0.2 


JSR 


1.2 



FIRST CHARACTER 



SECOND CHARACTER 



THIRD CHARACTER 



! FOURTH CHARACTER. 



I FIFTH CHARACTER 
$ 



OUTPUT SYMBOL'S ADDRESS 
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s « r d r : 

** *** 

** ** * 
***** 

* * ** * 



LDA 

LCA 

A (3D 
STA 
DSZ 
JMP 
JMP 
.RLK 
.BLK 
.RLK 
******** 

S C M 
******** 
******** 

A L B 
******** 



O.POSH 

l.SAODR 

Utl 

l.SADDH 

NSLMP 

SOI 

&SSCM 

1 

1 

1 

******** 

S C M 
******** 
******** 

ALB 
******** 



SAOUR <-- SAODK + H T t u OOK AT THE NEXT SYMBOL 
TABLE ENTRY 



CHECK FOR THE END OF THE TABLE 
NO -- DUMP THE NEXT SYMBOL 
YES -- RETURN 

NUMBER OF SYMBOLS TO bt DUMPED 
{ ADDRESS OF SYMBOL TABLE ENTRY OF CURRENT SYMBOL 
! "SCM" RETURN ADDRESS 
****** ****************************************»****,****** 

S CM SCM SCM SCM SCM SCM SCM 
**************** ****************************************** 
******* *************************************************** 

ALB ALB ALB ALR AlB ALB ALB 
*************************** ******************************* 



"ALL.. PERFORMS ALPHABETIC ( "A" - »Z" AND ••,..) CHARACTER VERIFICATION 



entry: 
Input: 

output: 
required: 



ALB + 1 
CHARACTER To 
VERIFICATION 
NONF 



BE VERIFIED* IN ALB 
FLAG(0=lNVALID»isVALID)« IN 



ALB 



M r : 



.RLK 

STA 

LDA 

LDA 

STA 

LDA 

SU6» 

JMP 

LDA 



3«SALP 

O.ALB 

liZtRO 

ItALB 

l.DOT 

Uil.SNR 

ALB1 

i.LETA 



! ON ENTRY* CHARACTER TO BE VERIFIED 

J ON EXIT. VERIFICATION FuAG ( 0=INVALID» 1=VALID) 

; SAVE RETURN ADDRESS 

ACO <-- CHARACTER TO BE VERIFIED 

ASSUME THE CHARACTER IS INVALlD(ALB O- 0) 

AC1 <-- ASCII ".» 
CHECK IF THE CHARACTER IS A " . " 
YES -- MARK THE CHARACTER AS VALID AND RETURN 
5 NO — CHECK IF THE CHARACTER IS "A" - "Z» 
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'> ! . r l : 



s A | B 



LUA 


2»LLTZ l 


ADCZtt 


2»0»SNC j 


AOCZtf 


U,1»SZC J 


JMP 


qJSALB ; 


LDA 


0»POS1 ; 


STA 


O.ALB ; 


JMP 


dJSALB \ 


.BLK 


1 \ 



SKIP IF ACO(CHARACTER) > AC2(ASCII »Z») 

SKIP IF ACO(CHARACTER) >= ACKASCII "A") 

NOT "A" - »Z" EITHER, SU IT»S INVALID AS ASSUMEn 

MARK THE CHARACTER AS VALID(ALB <-- 1) 

AND RETURN 



? "ALB" RETURN ADDRESS 



ALB ALB ALB ALB A L B ALB A L B ALB ALB 
ALN ALN * L N ALN ALN ALN ALN ALN aLN 



•ALI'j" PERFORMS ALPHANUMERIC ( "A" 
CHARACTER VERIFICATION 



- "Z'S "0" - "9", AND 



»• - M 



) 



entry: 
input: 

output: 
required: 



ALN + 1 
CHARACTER TO 
VERIFICATION 
"ALB" 



BE VERIFIEO, IN ALN 
FLA6(0=:INVALIL»A = VALID) , 



IN ALN 



*\i h 



.BLK 



STA 


4tSALN 


LDA 


2».ALB 


LDA 


U.ALN 


STA 


U,U»2 


JSH 


1.2 


LDA 


U.a.ALB 


MOV8 


0,0, SZR 


JMP 


ALN1 



5 ON ENTRY, CHARACTER TO BE VERIFIED 

1 ON EXIT, VERIFICATION FLAG ( 0=INVALID, 1=VALID) 

J SAVE RETURN ADDRESS 

CALL "ALB" TO CHECK IF THE CHARACTER IS ALPHABETIC 



! CHECK THE "ALB" VERIFICATION FLAG 

5 ALPHABETIC -- MARK THE CHARACTER AS VALID AND RrTURN 



sn 



LDA 

LUA 

LUA 

ADCZtt 

ADCZ8 

JMP 



"-! ^ 1 : LDA 



'* I *. 2 



sai rj 



STA 

JMP 
LDA 

STA 
JMP 
.BLK 



U,ALN 

1»CIG0 

2.DIG9 

2»O.SNC 

OtltSZC 

ALN2 

O.POS1 

OtALN 
q)SALN 
OtZERC 

OtALN 

aSALN 
1 



5 NONALPHABETIC -- CHECK iF THE CHARACTER IS "0" . »'9» 



SKIP IF ACO(CHARACTER) > AC2(ASCII "9") 
SKIP IF ACO(CHARACTER) >s ACKASCII "U") 
NOT "0" - »9» EITHER, SQ MARK THE CHARACTER 
INVALID AND RETURN 

MARK THE CHARACTER AS VALID(ALN <-- 1) 
AND RETURN 



AS 



MARK THE CHARACTER AS iNVALID(ALN < 

I AND RETURN 



! "ALN" RETURN ADDRESS 



-- 0) 



; ** ********** 

» A L 

************ 

** ********** 

B C 
************ 



************************************* ****** ************************ 
N ALN A L N A L N A L N ALN ALN A L N a L N 

******************************** *********************************** 
*********************************************** ******************** 

HK B C H K BCHK BCHK fc> C H K B C H K BCHK 
****** *****t *********** ***************************** ************ # * !(t 



•■BCHK" EVALUATES THE BREAKPOINTING ASSERTION 

entry: BCHK + 1 
input: none 

t output: value of breakpointing asseruon(osfalse.lstrue), 
s required: "pse m 

1 

HChK: .BLK 1 5 ON EXIT. VALUE OF BREAKPOINTING 

: ASSERTI0N(0=FALSE,1=TRUE) 

STA 3.SBCHK ; SAVE RETURN ADDRESS 

LDA 2..PSE ; EVALUATE THE BREAKPOINTING ASSERTION BY 



IN BCHK 
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spcfiK: 



LDA 


Ut ,BPS 


• 




STA 


U.0.2 


? 




JSR 


2.2 


* 

1 




LDA 


2..PSE 


J 




LDA 


0,1.2 


1 




STA 


O.BCHK 


* 

1 


BCHK <-- "PSE 


JMP 


aSBCHK 


J 


RETURN 


.BLK 


1 


* 


"BCHK" RETURN 



1 CALLING "PSE" TO EVALUAfE ITS POLISH STACK 



EVALUATION FLAG 



ADDRESS 



BCHK BCHK BCHK BCHK BCHK BCHK BCHK 

BRK BRK BRK BRK BRK BRK BRK BRK RRK 

*♦«**#*«***«»*******♦***********»»*♦*♦♦***«*♦«**********«»***»»«***«»**** 

•<BRK" DISPLAYS THE USER PROGRAM STATE AT A BREAKPOINT 



entry: 
input: 
output: 

required: 



BRK 
NONE 
NONE 
"DMP" 



H ,_, k : 



•snnK: 



STA 
LDA 

LDA 
STA 
JSR 

JMP 
.RLK 



3.SBRK 
2.. DMP 

0.PGS1 

0.0.2 

1.2 

bJSBRK 
1 



\ SAVE RETURN ADDRESS 

\ CALL "DMP" TO OUTPUT THL USER PROGRAM STATE 

8 AT A BREAKPOINT(DMP <-- 1) 



5 



? RETURN 

I "BRK" RETURN ADDRESS 



************ +********************#***«#*»****»**» lMlJ ,» 1> „ I|[ * lkJ>#1> „ # »» :>I|tJ>#]t 
BRK BRK BRK BRK BRK 6 R K BRK 



BRK 



R R K 
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B 2 D B2D B2D B2D B 2 D b 2 D B 2 D B2D R2D 

» "B2U" PERFORMS BINARY TO DECIMAL CONVERSION PER "INTRODUCTION TO 

PROGRAMMING THE NOVA COMPUTERS", 093-000(Jb7-0l . DATA GENERAL 
CORPORATION, SOUTHBORO, MA, 1972, PAGE A-fc 



nor : 



nori : 



\r*s; 



entry: 
input: 
output: 
required: 



B2D + 1 

BINARY INTEGER 
NONE 
"PUTC" 



TO BE CONVERTED, IN B2D 



,BLK 

STA 

LDA 

LDA 

STA 

.BLK 

LDA 

SUBO 

INC 

ADD 

JMP 

JSR 

ISZ 

MOVR 

JMP 

JMP 

.RDX 

10000 

1000 

100 

10 



3,SB2D 

1.B2D 

3, INST 

3,. + l 

1. 

0,DIG0 

2,1»SnC 

0,0, SKP 

2»1»SKP 

.-3 

a. PUTC 

B2D1 

2»2»SNt 

B2D1 

aSB2D 

10 



ON ENTRY, BINARY INTEGER TO BE CONVERTED 
SAVE RETURN ADDRESS 

AC1 O- BINARY INTEGER TO BE CONVERTED 
SET UP LDA COMMAND 

AC2 <-- POWER OF 10 
ACO <— ASCII "0" 
STILL PLUS IF NO CARRY 
INCREMENT ASCII CHARACTER 
TOO MUCH -- ADD BACK 

OUTPUT CHARACTER 
INCREMENT LDA COMMAND 
CHECK FOR THE LAST DIbil 
NO -- CONTINUE 
YES — RETURN 
CHANGE RADIX TO 10 
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1 

.RDX 



I r, $T: LDA 
s^?D: .BLK 



tt 5 CHANGE RADIX BACK TO b 

2,.+TENS-B2Dl 

1 S »B2D M RETURN ADDRESS 



B2D B2D B2D B20 B2D o 2 D B2D B2D R 2D 
s ************************ *************************♦****♦**********»*»**»*,*»„, ^ 
■********************************************** + *t m *4 t ** w „^t*„^t W + + m + ] m^ il[ ^ 

B20 B20 B20 B20 B 2 B20 B20 R20 R20 
*************** + ************************************ + + + ##]> + lk + #] , l|t]># + -[J , #%#<r#)t!i|(+## 

"B2C» PERFORMS BINARY TO OCTAL CONVERSION PER 'INTRODUCTION TO 

PROGRAMMING THE NOVA COMPUTERS"* O93-Q0OQb7-0l , DATA GENERAL 
CORPORATION* SOUTHBORO, MA, 1972, PAGE A-b "" 



entry: 
input: 
output: 
required: 



B20 + 1 

BINARY INTEGER TO 

NONE 

"PUTC" 



BE CONVEhlLD* IN B20 



M^r : 



H'ri 



.BLK 

STA 

LDA 

SUBZR 

LDA 

SUBO 

INC 

ADD 

JMP 

JSR 

MOVZR 

MOVZR 

MOVZR 

JMP 



1 

3,SB20 
1.B20 

O.DIGO 

2,1,SNC 

0,0. SKP 

2.1.SKP 

.-3 

a). PUTC 

2,2 

2,2 

2.2.SZR 

0201 



ON ENTRY, BINARY INTEGER TO BE CONVERTED 

SAVE THE RETURN ADDRESS 

AC1 < — BINARY INTEGER TO BE CONVERTED 

AC2 <-- 100000 

ACO <-- ASCII »0»> 

STILL PLUS IF NO CARRY 

INCREMENT ASCII CHARACTER 

TOO MUCH -- ADD BACK 



J OUTPUT ASCII CHARACTER 
; SHIFT RIGHT THREE BITS 



« 



CHECK FOR THE LAST DIGIT 
NO -- CONTINUE 
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JMP 
sn?0: .BLK 



3SB20 
1 



YES -- RETURN 

"B20" RETURN ADDRESS 



*********************************************** ******************************** 
B?0 B?0 RPfi ROD R-afl « o n Ror> n*»n r. r, ^ 



B20 B20 B20 B20 B 2 b 2 B20 B20 R20 

I********************************************************* 



******************** 



******************** *********************************************************** 
******************************************************************************* 
CBIT CBIT CBIT CBIT LB IT CBIT CBTT 

+ * ************************** *************************************************** 

"CBIT" OUTPUTS THE VALUE OF AfJ E NCODED<ROTATEU LEFT INTO BIT 15) CARRY RlT 



C"TT 



entry: 
input: 
output: 
required: 



cbit + 1 
encoded carry 

NONE 
"PUTC" 



BIT TO BE OUTPtTt IN CBIT 



scfIT: 



.BLK 

STA 

LDA 

JSR 

JSR 

L.DA 

LDA 

MOVR« 

LDA 

JSR 

LDA 

JSR 

JSR 

JMP 

.BLK 



3»SCBIT 

0»SPACE 

3. PUTC 

tf.PUTC 

O.CIGO 

l.CBIT 

i«i«szc 

U»DIG1 

qj.PUTC 

OiSPACE 

a). PUTC 

3. PUTC 

b)SCBIT 

1 



: ON ENTRY, ENCODED CARRt 
; SAVE RETURN ADDRESS 
J OUTPUT TWO SPACES 



BIT TO BE OUTPUT 



j ASSUME THE CARRY BIT IS A 0(AC0 <-- ASCII "0") 



CHECK IF THIS IS RIGHT 

NO -- IT'S A KACQ <-- ASCII "1") 

OUTPUT ACO, THE ASCII EQUIVALENT OF THE ENCODED CARRY 

OUTPUT TWO SPACES 



RETURN 
"CBIT" 



RETURN ADDRESS 



;*** ************ **************************************************************** 
: CBIT CBIT CBIT CBIT IBIT CBIT CBTT 



-*********************************************.*^ 

«CPY« COPIES THE CURRENT CPU STATE VECTOR TO THE PREVIOUS CPU STATE VECTOR 



<:r>y : 



entry: 


CPY 




input: 


NONE 


output: 


NONE 


required: 


NONE 


LDA 


OtNEWAO 




5 ACO 


STA 


QtCLDAO 






LDA 


OtNEWAl 




J AC1 


STA 


OtOLDAl 






LDA 


0.NEWA2 




! AC2 


STA 


0.0LDA2 






LDA 


0»NE|nA3 




AC3 


STA 


G.0LDA3 






LDA 


O.NEWCY 


t 

1 


CARRY BIT 


STA 


O.OLDCY 


1 




LDA 


O.NEWPC 




PROGRAM COUNTER 


STA 


O.OLDPC 






JMP 


G»3 




RETURN 



* It ********** *********************** **__ 

CPY TPY r n v *********************************************** 

L p Y CPY CPY CPY LPY CPY Cpy r d v 

****************************************** ***************„; ,;„ *****I**^*LL* 

.,*,******************* ..*.«««..»**«.«;.•«««•.*•:::::::::::::::::::::: 

u M r UMP DMP DMP DMP D M P DMP n m p r. m d 

********************************************^ 

"DMP" DUMPS THE CURRENT AND PREVIOUS CPU STATES OF THE USER PROGRAM 
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n-'p : 



entry: dmp + i 

INPUT: DUMP FLAG(l=BREAKP0lNT,2=HALl , ^INTERRUPT). IN DMP 

output: none 

kequiked: "b20". "cbit", "putb". "sp3" 



.BLK 

STA 

LOA 

LDA 

STA 

JSR 

LDA 

LDA 

MOVR 

LDA 

MOVR 

LDA 

MOVR 

LDA 

STA 

JSR 
LDA 
LOA 
STA 
JSR 
JSR 
LDA 
LDA 
STA 
JSR 
JSR 
LDA 
LDA 
STA 



2 


1 
2 
1 
1 
(J 
1 

1 

u 



1 

2 

U 
1 

a 

2 

o 



1 

GJ 

2 





SDMP 

.PUTB 

.0UT7 

0*2 

2 

.PUTB 

DMP 

l.SZC 

.0UT9 

l.SZC 

.0UT8 

l.SZC 

.OUTG 

0.2 

2 

.820 

NErtPC 

0.2 

2 

SP3 

.B20 

3NEWPC 

0.2 

2 

SP3 

.CBIT 

NEWCY 

0.2 



; ON ENTRY. FLAG TO INDICATE TYPE 

; OF DUMP(1=BREAKP0INT.2=HALT,4=INTERRUPT> 

; SAVE RETURN ADDRESS 

5 OUTPUT DUMP HEADINGS 



OUTPUT CAUSE OF DUMP 

CHECK IF IT WAS A BREAKPOINT < DMP=1 ) 

YES -- A BREAKPOINT 

CHECK IF IT WAS A HALT(uMP=2) 

YES — A HALT 

CHECK IF IT WAS AN iNTtKRUPTt DMP=«4 J 

YES -- AM INTERRUPT 

OUTPUT APPROPRIATE LABEl FOR CAUSE OF DUMP 
OUTPUT CURRENT ADDRESS 



« OUTPUT CURRENT INSTRUCTION 

; 



OUTPUT CURRENT CARRY Bil 
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JSK 


1.2 


JSR 


@.SP3 


LQA 


2, .B20 


LDA 


U.NEWAU 


STA 


U.0.2 


JSR 


1.2 


JSR 


a.sP3 


LDA 


2t .620 


LDA 


0.NEWA1 


STA 


0.0.2 


JSR 


1.2 


JSR 


ii.SP3 


LDA 


2 t .820 


LDA 


0.NEWA2 


STA 


0.0.2 


JSR 


1.2 


JSR 


a.SP3 


LDA 


2. .020 


LDA 


0,NEwA3 


STA 


a. a. 2 


JSR 


1.2 


LDA 


O.PDUMP 


MOVtt 


0.0. SNR 


JHP 


hlSOMP 


LDA 


2..PUTB 


LDA 


0..OUTA 


STA 


0. 0.2 


JSR 


1.2 


LOA 


2, .620 


LDA 


(J.OLDPC 


STA 


0.0.2 


JSR 


1.2 


JSR 


a).SP3 


LDA 


2, .620 



OUTPUT CURRENT ACO 



OUTPUT CURRENT AC1 



OUTPUT CURRENT AC2 



OUTPUT CURRENT AC3 



CHECK PDUMP TO SEE IF .ANY INSTRUCTIONS ACTUALLY 

GOT EXECUTED 

NO — THERE WAS NO PREVIOUS CPU STATE* SO JUST RETURN 

YES -- OUTPUT LA8EL FOR PREVIOUS CPU STATE LINE 



OUTPUT PREVIOUS ADDRESS 



OUTPUT PREVIOUS INSTRUCTION 



7J 



s r n p ; 



:*■»** ********* 
D M P 

« •** *********** 
• ************* 



LDA 


O.&OLDPC \ 


STA 


. . 2 


JSR 


1*2 ; 


JSR 


a.SP3 ; 


LDA 


2..CBIT ; 


LDA 


U.OLDCY j 


STA 


0,0.2 5 


JSR 


1.2 ; 


JSR 


8.SP3 ; 


LDA 


2, .820 ; 


LDA 


0.0LDA0 j 


STA 


0.0»2 ; 


JSR 


1.2 S 


JSR 


a.sP3 « 


LDA 


2..B20 « 


LDA 


0.OLDA1 j 


STA 


0.0.2 ; 


JSR 


1.2 : 


JSR 


a.sP3 j 


LDA 


2, .620 ? 


LDA 


0.OLDA2 ; 


STA 


0.0»2 5 


JSR 


1.2 t 


JSR 


M.SP3 ; 


LDA 


2..B20 ; 


LDA 


0.0LDA3 ; 


STA 


0.0.2 j 


JSR 


1.2 ; 


JMP 


aSDMP ; 


.BLK 


l ; 



OUTPUT PREVIOUS CARRY B±T 



OUTPUT PREVIOUS ACO 



1 OUTPUT PREVIOUS AC1 



OUTPUT PREVIOUS AC2 



OUTPUT PREVIOUS AC3 



RETURN 

••DMP" RETURN ADDRESS 

**************** **************************^******» + *** + :k , ((1 ^ + , |<](t , (]tr](ri(t 

DMP DMP DMP DMP UMP DMP DMP nMP 
********** + ******* + + + ^^ % + + #:k#](tt + 3([ + lfc#]4r + )t[))t])t3([it!([s|[ + ^ :4[# + + + + )(( + <[ + i([# ^ + + + + !([](( 

*************** + * + + + + # + + + + + + + ^ + + + + :k ^ + j)!;(t + + ))t#5t[]#[)t:#j)(#j([ + ^^^ + ]t[](t ^ # ^ # + ^ + )t(]te 



ECAC EC AC ECAC EC A C ECAC ECAC E C a C 

"ECAC" EXAMINES THL CHARACTER IN ATXT, THE ASSERTION TEXT BUFFER. 
CURRENTLY POINTFD TO BY ATXTP, THE ASSER,ION TEXT POINTER 

entry: ECAC 
input: none 

OUTPUT! CURRENT ASSERTION TEXT CHARACTER, IN ACo 

required: none 

NOTE: ATXTP, THE ASSERTION TEXT POSTER, IS not advanceo 

' rAC: !"™ Vlrlil ' AC f < " STARr lNG ADDRESS OF ASSERTION TEXT BUFFrR 

LDA 1, ATXTP ; AC1 <-- ASSERTION TEXT POINTER 

A|JO 1»2 5 ADO THESE TWO TO OFFSET TO THE CURRENT CHARACTER 

LDA 0.0,2 ; ACO <— CURRENT ASSERTION TEXT CHARACTER 

USR 0,3 ; RETURN 

ECAC ECAC ECAC EC A C E C A C ECAC E C a C 

E '' A C E N A C LNAC I N A C E N* A C E N A C E N 

•TNAr- EXAMINES THE CHARACTER IN ATXT, THE ASSERTION TEXT BUFFER, 

FOLLOWING THE OnE CURRENTLY POINTED TO BY ATXTP, THE ASSERTION 

text pointer 

entry: enac 
input: none 

OUTPUT: NEXT ASSERTION TEXT CHARACTER. In ACO 

required: none 

NOTE: ATXTP, THE ASSERTION TEXT FCiNTER, IS NOT ADVANCED 



7H 



C'i/*C; 



LDA 


di .ATXT 


LDA 


1»ATXTP 


INC 


1*1 


ADD 


1,2 


LDA 


0,0*2 


JMP 


U»3 



; AC2 <— STARTING AUQRtSS OF ASSERTION TEXT SUFFER 

I AC1 <-- ASSERTION TEXT POINTER 

I INCREMENT THE ASSERTION TEXT POINTER 

; ADD THESE TWO TO OFFSET TO THE NEXT CHARACTER 

; ACO <-- NEXT ASSERTION 1EXT CHARACTER 

; RETURN 



********************** ********************************************************* 

EN AC ENAC ENAC FNAC ENAC ENAC ENAC 
♦ t^****************************************************************,,*^^^^,,, 
**** + ***********************************************************»****** ## * # ^ 1|[!(1 

GAT GAT GAT GAT GAT b A T GAT GAT RAT 

************* *************************************************** j******.^*^,,.^ 

"GAT" PERFORMS TELLTYPF INPUT OF THE ASSERTION 1 EXT 



(-.AT 



N A 7 1 



entry: 
input: 
output: 
required: 


STA 
LDA 


3»SGAT 

0»NEGl 


STA 
JSR 
JSR 

LDA 
SUB# 

JMP 
LDA 


UtATXTp 

ol.GETC 

a.PUTC 

l.CR 

0,1, SZH 

GAT2 

OiLF 


JSR 
JSR 

LDA 


a.PUTC 
SJ.SP3 
0, SPACE 



GAT 

NONE 

NONE 

"GETC", "PUTB", "PUTC", "SF3" 



1 SAVE RETURN ADDRESS 

MOVE THE ASSERTION TEXT POINTER BACK TO 
THE FRONT OF THE BUFFLfU ATXTP <— -1) 



ACO <-- 

ECHO IT 



NEXT INPUT CHARACTER 



CHECK IF IT IS A CARRIAGE 
NOT A CARRIAGE RETURN 
YES -- OUTPUT A LINE FttD 
ANOTHER LINE OF INPUT 



RETURN 

AND TAB IN FOR 



7« 



f 3 A T ? : 



(-173; 



JSK 


qUPUTC 


JSR 


oi,PUTC 


JMP 


GAT1 


LDA 


1, SPACE 


SUB** 


0.1. SNR 


JMP 


GAT1 


LDA 


It ARROW 


SUBt* 


UtltSZR 


JMP 


GAT3 


LDA 


OiNEGl 


LDA 


l.ATXTP 


SUB** 


O.l.SNH 


JMP 


GAT1 


ADD 


0.1 


ST A 


l.ATXTP 


JMP 


GAT1 


LDA 


l.ATXTP 


INC 


1.1 


LDA 


2.ATXTM 


ADCZH 


2.1.SZC 


JMP 


GAT4 


STA 


l.ATXTP 


LDA 


2..ATXT 


ADD 


1.2 


LDA 


l.SCOLN 


SUB** 


U.l.SNR 


LDA 


O.AMPER 


LDA 


1. COMMA 


SUBS 


0,1, SNR 


LDA 


0. COLON 



NOT A CARRIAGE RETURN — ■ CHECK IF IT IS A BLANK 
YES -- IGNORE IT 

NOT A BLANK EITHER -- CHECK IF IT IS 

A 8ACKWARDS ARROW 

NOT A BACKWARDS ARROW 

YES -- CHECK IF THE POINTER CAN BE BACKED UP 



IT'S ALREADY AT THE FRONT. SO LEAVE IT ALONE 
NOT AT THE FR0NT(A1XTP > -1), SO BACK 
IT UP(ATXTP <-- ATXTP - 1) 



THE CHARACTER WAS NOT A CARRIAGE RETURN, A BLANK OR 

A BACKWARDS ARROW, SO AuD IT TO THE END OF THE 

BUFFER -- IF THERE'S ROOM LEFT 

AC1 <-- ATXTP + 1 

AC2 <-- ATXTM(MAXIMUM VALUE OF ATXTP) 

SKIP IF ACKATXTP + 1) <.= AC?(ATXTM) 

ATXT OVERFLOW 

THERE WAS ROOM. SO ADL THE CHARACTER AND 

UPOATE ATXTP(ATXTP <— ATXTP + 1) 



TRANSLATE "J" TO "&" 



TRANSLATE ",» TO »:" 
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i^tu : 



snnT : 



STA 


0.0.2 


LDA 


l.DSIGN 


SUB# 


O.l.SZR 


J MP 


GATl 


JMP 


aSGAT 


LDA 


2. .PUTO 


LDA 


0. .ERRfc 


STA 


U »0»2 


JSR 


1.2 


JMP 


60.ALA1 


.f3LK 


1 



CHECK IF THAT LAST CHARACTER WAS A FENCE! "$») 

NO -- GO GET ANOTHER CHARACTER 

YES -- RETURN 

OUTPUT A FATAL ERROR MLSSAGE(ATXT OVERFLOW) AND 

RETURN TO "ALA" DIREC7LT 



1 "GAT" RETURN ADDRESS 



GAT GAT GAT GAT GAT bAT GAT GAT RAT 
* ************************** **************************************************** 
***************** + ************************************************,,,*,,,**** 

GETC GETC GETC GETC GETC 



******: 



GFTC GETC 



*»*******************************^» + # **** + + *^^^*, # + ^ + + + + + + + +# + # + + l|(J>]>l(( + + )(t + 1r)tt + + ;# . ](c 
"GETC" PERFORMS SINGLE CHARACTER TELETYPE INPUT 



entry: 
input: 
output: 
requirel 



GETC 
NONE 
TELETYPE 

NONE 



INPUT CHARACTER. IN ACO 



SP7C 



NIOS 

SKPDN 

JMP 

DIAC 

LDA 

AND 

JMP 



TT1 

TTI 

.-1 

G.TTl 

l.CMASK 

1.0 

0.3 



START TELETYPE 
WAIT FOR INPUT 

ACO <~- CHARACTER AND CLEAR TELETYPE 
AC1 <-- 000177CASCII CHARACTER MASK) 
MASK OFF THE PARITY BIT 
RETURN 
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^n*****************************************************************,^**^*^,,.^ 

GETC GETC GETC G E T C GETC GEfC G E T C 
** ****************** *********************************************************** 

4 •*»»*******♦**«***»************«***♦ ****************************************** 

HLT HLT HLT HLT HLT HLT HLT HLT HLT 

+ -♦**************************** *****************************************,»******* 

"I'LT" DISPLAYS THE USEP PROGRAM STATE AT A HAU 



hi t : 



su( t: 

» 

• + * * * 

: + * * * 

• * ■* * * 



entry; 
input; 
output : 
required: 


HLT 
NONE 
NONE 
"DMP" 


STA 3 •SHU 

LDA 2..0MP 






LOA 0.POS2 
STA 0,0i2 
JSR 1,2 
JSR oiJ.CPY 






LDA O.OLDPC 
INC 0,0 
LDA l.AMASK 
AND 0,1 
STA l.NEwPC 
JMP hJSHLT 
.BLK 1 


» 





SAVE RETURN ADDRESS 

CALL "DMP" TO OUTPUT THt USER PROGRAM STATE 

AT A HALT(DMP <— 2) 



NOW. "EXECUTE" THE HALl -- CALL "CPY" TO COPY 
J THE CURRENT CPU STATE VLCTOR TO THE PREVIOUS CPU 
STATE VECTOR 
FINALLY. NEwPC <— OLLPL + 1 



RETURN 
? "HLT" RETURN ADDRESS 

******* ************************************* t **********************^ + * + + :+t + 
HLT HIT HLT HLT HLT HLT HLT HLT HLT 

♦ ♦♦♦♦fr**********************************************************,,***,,,*,,;*^,^ 
************************ ******************************************** # *** # ** 
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*•♦**** 



N T K N N T K N N T K N N T K N N T K N N J K N N T K N 
**********♦****•»****•*****»***«.•,»»»•»*» w *„*„„.„^„„„^^ #| 

»NTKM« RETURNS THE NEXT TOKEN OF THE ASSERTION iNPUT STRING 

ENTRY; NTKfi + 3 

INPUT: NONE 

OUTPUT: TOKEN CLASS OF NEXT TOKEN, IN NTKN 
IF TOKEN IS OPERAND — 

OPERAND TYPE, IN TVALKNTKN + 1) 
OPERAND VALUE, IN TVAL2<NTKN ♦ 2) 
IF TOKEN IS OPERATOR -- 

OPERATOR ID, IN 1VALKNTKN + 1) 
OPERATOR PRIORITY, In TVAL2(NTKN + 5> ) 

REQUIRED! "ALB", »ALM», «ECAC% "ENAf, "OCT", »RNAC% "SRCH" 

;;;;f;, '"[« J * ™ EXIT. TOKEN CLASS OF NEXT TOKEN 

I ,M: 'm? J" ' ° N EXIT ' 0PERAND TYPE/UPERATOR ID 

*ta 1 cmt^. ' 0N tXIT ' 0PERAND VALUE/uPERATOR PRIORITY 
STA i.SNTKN ; SAVE RETURN ADDRESS 

JSR a.RNAC ; ACO <~ NEXT ASSERTION TEXT CHARACTER 

LDA 1,DSIGN J 

SUBtt 0,1, S?R j CHECK IF IT IS A '»$»UtNCE) 

JMP NTKN1 | MOT A •'$» 

LDA 0,POS5 1 

STA 0,NTKN j YES — TOKEN CLASS <— b 

JMP aSNTKN ? RETURN 

P' T kN3: LDA l.LPARN J 

SUB» 0,1, SZR ; CHECK IF IT IS A •' < •• 

JMP NTKN2 j MOT A » ( » 

LDA 0.POS1 5 

STA 0,NTKN ? YES — TOKEN CLASS <-- 1 

LDA 0,POS10 ; 

STA U,TVAL1 ; OPERATOR ID <— 10 

LDA w,ZERO : 
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'kh2 



• m ; j ?■ 



riTKri^ ! 



> t u n 5 : 



STA 


U.TV/AL2 


JMP 


oiSNTKM 


LDA 


l.RPARN 


SUbtt 


0.1. SZR 


JMP 


NTKN3 


LDA 


U.P0S2 


STA 


G.NTKN 


LDA 


0.POS11 


STA 


O.Tv/ALl 


LDA 


U.ZERO 


STA 


0.TVAL2 


JMP 


dlSNTKN 


LDA 


l.LQ 


SUBft 


0.1. SZR 


JMP 


NTKN<+ 


LDA 


0.POS3 


STA 


O.NTKN 


LDA 


0.POS2 


STA 


U.TVALl 


LDA 


0.POS3 


STA 


0.TVAL2 


JMP 


ojSNTKIM 


LOA 


l.PSIGN 


SUBtt 


0.1. SZR i 


JMP 


NTKN5 ; 


LDA 


0.POS3 ; 


STA 


O.NTKN ; 


LDA 


O.ZERO ; 


STA 


0.TVAL1 ? 


LDA 


U.POS«f ; 


STA 


U.TVAL2 ; 


JMP 


aiSNTKN ; 


LDA 


l.MSIGN { 


SUB« 


0.1. SZR ; 


JMP 


NTKN6 ; 



UPtKATOK PRIUK1TY <-- U 
RETURN 

CHECK IF IT IS A ")" 
NOT A •' )•' 

YES -- TOKEN CLASS <-- k 
OPERATOR ID <-- 11 

OPERATOR PRIORITY <-- 

RETURN 

CHECK IF IT IS AN ° = » 
NOT AN »=» 

YES -- TOKEN CLASS < — 3 

OPERATOR ID < — 2 

OPERATOR PRIORITY <— 3 

RETURN 

CHECK IF IT IS A •« + " 

NOT A •• + »' 

YES — TOKEN CLASS <-- 3 

OPERATOR ID <-- 

OPERATOR PRIORITY <-- <+ 
RETURN 

CHECK IF IT IS A »»-•• 
NOT A »-» 
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'TU|V£. 



»lTKfj7; 



f ^kf,p; 



LDA 


U,PUS3 


STA 


U.NTKN 


LDA 


OiPOSl 


STA 


u.TVALl 


LDA 


0»POS*f 


STA 


U«TVAL£ 


JW1P 


cuSf-jTKN 


LOA 


1. COLON 


SUB* 


u.l»SZR 


JMP 


NTKM7 


LDA 


0.PCS3 


STA 


O.fvTKW 


LDA 


0,POS9 


STA 


0.TVAL1 


LDA 


0.PCS1 


STA 


0.TVAL2 


JMP 


aSNTKN 


LDA 


l.AMPER 


SUBtf 


G.l.SZR 


JMP 


NTKN8 


LDA 


0»POS3 


STA 


G,NTKN 


LDA 


0.POS8 


STA 


U»TVAL1 


IDA 


U«P0S2 


STA 


U.TVAL2 


J*!P 


aSNTKM 


LDA 


l.LT 


SUB* 


Oil. szr 


JI^P 


NTKNA 


LDA 


C1.POS3 


STA 


U t NTKN 


LDA 


0»POSf 


STA 


0,TVAL1 


LDA 


U.POS3 



YES -- TOKEN CLASS <-- 
OPERATOR ID <-- 1 

OPERATOR PRIORITY <-- H 
i RETURN 
J 

CHECK IF IT IS A '•:" 

NOT A ";» 

YES -- TOKEN CLASS <-- 3 

OPERATOR ID <-- 9 

OPERATOR PRIORITY <-- 1 
RETURN 

CHECK IF IT IS AN "&" 
NOT AN "&" 

YES -- TOKEN CLASS <-- 5 

OPERATOR ID <-- 8 

OPERATOR PRIORITY <-- 2 
RETURN 

1 CHECK IF IT IS A ••<" 
» NOT A "<» 

* 

* YES -- TOKEN CLASS <-- i 

J ASSUME JUST A "<« -- CPERAToR ID < 



mm H 
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STA 


O1TVAL2 


JSK 


a.ENAC 


LDA 


ltGT 


SUB* 


OtltSZh 


JMP 


NTKN9 


LDA 


QtP0S3 


STA 


UtTVALl 


JSR 


ai.RNAC 


JMP 


SSMKN 


T ^r-9: LPA 


It Lb 


SUB& 


O.l.SZR 


JMP 


aJSMTKN 


LDA 


0.POS6 


STA 


G.TVAL1 


JSR 


a,RNAC 


JMP 


aSNTKN 


r KMA; LDA 


l.GT 


SUB# 


U.1»SZR 


JMP 


NTKNB 


LOA 


U»P0S3 


STA 


Of NTKN 


LOA 


0fPOS5 


STA 


OfTVALl 


LDA 


0.POS3 


STA 


0,TVAL2 


JSR 


ol.ENAC s 


LDA 


liEQ J 


SUBH 


U.ltSZR ; 


JMP 


aiSNTKN ; 


LDA 


0.POS7 ; 


STA 


QtTVALl 5 


JSR 


ai.RNAC : 


JMP 


aiSNTKN ; 


Tl: .RLK 


1 ; 


t k rj : .rlk 


1 5 



OPERATOR PRIORITY <-- 

LOOK AT THE CHARACTER FOLLOWING IT 

CHECK IF IT IS A «>•• 



YES — TOKEN IS '•<>»< -- OPERATOR IC <— 3 
MOVE UP THE POINTER BELAUSE OF THE «V 

RETURN 

NO -- CHECK IF IT IS AN '»=:•• 

NO -- JUST A "<" AS ASSUMED -- RETURN 

YES -- TOKEN IS "<=" -- OPERATOR ID <-- 6 
MOVE UP THE POINTER BECAUSE OF THE » = •' 
RETURN 

CHECK IF IT IS A ">" 
NOT A ••>" 

YES «- TOKEN CLASS < — 3 

ASSUME JUST A ■•>« -- OPERATOR ID <— 5 

OPERATOR ID <-- 3 

LOOK AT THE CHARACTER FOLLOWING IT 

CHECK IF IT IS AN " = •« 

NO — JUST A ••>•' AS ASSUMED -- RETURN 

YES -- TOKEN IS »•>*" — OPERATOR ID <— 7 
MOVE UP THE POINTER BECAUSE OF THE •• = » 
RETURN 

COUNTER TO LII*IT THE GLIAL STRING TO SIX DIGITS 
"NTKN" RETURN ADDRESS 
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T VL1 



'" T KMC 



•tknp: 



•v-kme : 



TVALl 

TVAL2 

LDA 

STA 

JSK 

LDA 

MOVLtt 

JMP 

STA 

LDA 

STA 

JSR 

LDA 

STA 

JSR 

LOA 

MOVLJ* 

JMP 

DSZ 

JMP 

LDA 

STA 

JMP 

LDA 

ADDZL 

MOVZL 

ADD 

STA 

JSR 

JMP 

LDA 

STA 

LDA 

STA 



2. .OCT 

0,0.2 

1,2 

O.cD.OCT 

U,0.SZC 

NTKNF 

O.LVAL 

0.POS6 

U.MXOD1 

ai.ENAC 

2. .OCT 

0.0.2 

1.2 

u.a.ocT 
o.o. szc 

NTKNE 

MXCD1 

NTKND 

U.ZERO 

OiS.NTKN 

aSNTKN 

l.LVAL 

1.1 
lil 

0.1 

l.LVAL 

ot.RNAC 

NTKNC 

O.POSH 

g.a.NTKN 

0.POS4 

0.S1.TVL1 



CALL "OCT" TO SEE IF IT'S AN OCTAL DIGIT (LlTERAl ) 



CHECK THE "OCT" VERIF ILATION FLAG 
NOT AN OCTAL DIGITi SO i\*OT A LITERAL 
LVAL <— VALUF OF FIRS! DIGIT 

MX001 <— 6 

LOOK AT THE NEXT CHARAUER 

CALL "OCT" TO SEE IF IMS AN OCTAL DIGIT 



CHECK THE "OCT" VERIFICATION FLAG 

NO — THAT'S THE END OF THE LITERAL 

YES — CHECK IF THAT'S MORE THAN SIX DIGITS 

NO -- ADD IT INTO THE PREVIOUS ACCUMULATED VALUF 

YES -- TOO MANY DIGITS -- TOKEN CLASS <~ 

RETURN 

MULTIPLY THE OLD ACCUMULATED LITERAL VALUE BY 8 

AND ADD IN THE LATEST DIGIT INPUT 



MOVE THE POINTER UP FCR THE LAST DIGIT PROCESSED 
GO GET ANOTHER CHARACTER 

LITERAL -- TOKEN CLASS <^- 14 

OPERAND TYPE <-- <+ 
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LDA 
STA 

JMP 

LDA 
STA 
JSR 
LDA 
M0V8 
JMP 
JSR 
LDA 
SUB# 
JMP 
LDA 
STA 
JMP 
^itkIVG: JSR 
MOVS 
STA 



LDA 

STA 

STA 

JSR 

LDA 

STA 

JSR 

LDA 

MOW 

JMP 

JSR 

LDA 



0,LVAL 
0»a.TVL2 
aSNTKN 
8.ECAC 

2, .ALB 

0*0*2 

i*2 

0*8. ALB 

0,0, SZR 

NTKNG 

a.ECAC 

I,ASTRX 

0*1»SNR 

NTKNG 

0,ZERO 

0»ffi.NTKN 

aSNTKN 

a.ECAC 

0,0 

0.IVAL1 



0,2ERO 

0,IVAL2 

Q.IVAL3 

a.ENAC 

2. .ALN 

U,0i2 

1,2 

0,ffi.ALN 

U,0*SNR 

NTKNH 

a.RNAC 

1*IVAL1 



J OPERAND VALUE <-- LVAL 

« RETURN 

THIS CHARACTER MUST 
CALL "ALB" TO CHECK 



BL&iN AN IDENTIFIER •• 
IF iT'S ALPHABETIC 



CHECK THE "ALB" VERIFICATION FLAG 

YES — IT'S ALPHABETIC -- PROCESS AN IDENTIFIER 

NO — MUST BE AN '»*" ( KESERVED SYMBOL) 

CHECK IF IT IS AN "*« 

YES « PROCESS AN IDENTIFIER 

NO -- TOKEN CLASS <— U 
RETURN 



MOVE THIS FIRST IDENTIFIER CHARACTER 
LEFT BYTE OF IVAL1* ANQ FILL OUT THE 
THE IDENTIFIER WITH NULLS 



INTO 
REST 



THE 
OF 



LOOK AT THE NEXT CHARACTER 

CALL "ALN" TO CHECK IF iT»S ALPHANUMERIC 



CHECK THE "ALN" VERIFICATION FLAG 

NOT ALPHANUMERIC -- END OF THE IDENTIFIER 

ALPHANUMERIC -- MOVE THE POINTER UP 



8<4 



mtumh: 



ADD 


0.1 


STA 


1.IVAL1 


JSR 


a.ENAC 


LDA 


2, .ALN 


STA 


0.0*2 


JSR 


1.2 


LDA 


O.S.ALN 


MQV# 


Q.O.SNR 


JMP 


NTKNH 


JSR 


a.RNAC 


MOVS 


0.0 


STA 


J.IVAL2 


JSR 


a.ENAC 


LDA 


2..ALN 


STA 


0.0.2 


JSR 


1.2 


LDA 


O.a.ALN 


MOV# 


0»0»SNR 


JMP 


NTKNH 


JSR 


a.RNAC 


LDA 


1.IVAL2 


ADD 


0,1 


STA 


1.IVAL2 


JSR 


a.ENAC 


LDA 


2, .ALN 


STA 


0,0.2 


JSR 


1.2 


LDA 


O.a.ALN 


MOV« 


0,0, SNR 


JMP 


NTKNH 


JSR 


a.RNAC 


MOVS 


0,0 


STA 


0.1VAL3 


LDA 


2..SRCH 


LDA 


0..IVAL 



MOVE THIS CHARACTER INTO THE RIGHT BYTE OF IVAL1 

LOOK AT THE NEXT CHARACTER 

CALL "ALN" TO CHECK If- IT'S ALPHANUMERIC 



CHECK THE "ALN" VERIFICATION FLAG 

NOT ALPHANUMERIC — END OF THE IDENTIFIER 

ALPHANUMERIC «■• MOVE THE POINTER UP 

MOVE THIS CHARACTER INTO THE LEFT BYTE OF IVAL2 

LOOK AT THE NEXT CHARACTER 

CALL "ALN" TO CHECK IF IT'S ALPHANUMERIC 



CHECK THE "ALN" VERIFICATION FLAG 

NOT ALPHANUMERIC -- END OF THE IDENTIFIER 

ALPHANUMERIC *- MOVE THE POINTER UP 



MOVE THIS CHARACTER INTO THE RIGHT BYTE OF IVAL? 

LOOK AT THE NEXT CHARACTER 

CALL "ALN" TO CHECK IF IT'S ALPHANUMERIC 



CHECK THE "ALN" VERIFICATION FLAG 

NOT ALPHANUMERIC — END OF THE IDENTIFIER 

ALPHANUMERIC -- MOVE THE POINTER UP 

MOVE THIS CHARACTER INTO THE LEFT BYTE OF IVAL3 
NOW, SEARCH FOR THE IDENTIFIER IN THE SYMBOL TArLE 
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STA 


U.0.2 




JSR 


1.2 




LDA 


U»a.SRCH 




MOVLtf 


0»0»SNC 




J MP 


NTKNI 




LDA 


0,ZE.RO 




STA 


0. a. NTKN 




JMP 


alSNTKN 


r.iTKfil : 


STA 


0»a.TVL2 




LDA 


0.P0S4 




STA 


Q.S.NTKN 




LDA 


0.POS2 




STA 


CUS.TVL1 




JMP 


3SNTKN 


i\'/u.i: 


.BLK 


1 


M',«L2: 


.BLK 


1 


i v /> i 3 : 


.BLK 


1 


i VflL! 


.8LK 


1 


•tvAl; 


IVAL1 





CHECK THE ABSOLUTE AOLKtSS RETURNED 

INVALID IDENTIFIER — TbKEN CLASS <-- 
RETURN 

VALID IDENTIFIER -- OPLKAND VALUE <— ABSOLUTE ADDRESS 
TOKEN CLASS <-- <f 



OPERAND TYPE <-- i 

RETURN 

IDENTIFIER LABEL . 

IDENTIFIER LABEL . 

IDENTIFIER LABEL - 

BINARY VALUE OF LITERAL 

ADDRESS OF IDENTIFIER LABEL 



CHARACTERS 1 AND 2 
CHARACTERS 3 AND <+ 
CHARACTER 5 AND »<00>» 



NTKN NTKN NTKN NTKN NTKN NTKM NTKN 
0CT 0CT OCT OCT OCT UCT OCT OCT nCT 

♦l*********************************,,*,**,,*,,,,^., ************ ***, ************** 



t "CCT" PERFORMS OCTAL DIGIT VERIFICATION 



entry: 
input: 
output: 

required: 



OCT + 1 

CHARACTER TO BE VERIFIEOt Ik OCT 

BINARY VALUE(0 - 7 — -1 IF INVALID) 

NONF 



OF CHARACTER. In OCT 



{""7 



.BLK 



ON ENTRY, CHARACTER TO BE VERIFIED 
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7) OF OCTAL DIGIT. IF VALID 





STA 


3tS0CT 


J 




LDA 


U.OCT 


f 

1 




LDA 


1.DIG0 


: 




LDA 


2.DIG7 


• 
1 




ADCZ# 


2.0.SNC 


1 




ADCZ# 


0.1. szc 


1 




JMP 


OCT1 


• 

f 




LDA 


l.OMASK 


« 




AND 


1.0 


i 




STA 


O.OCT 


; 




JMP 


asocT 


• 
* 


nrTi: 


LDA 


0.NEG1 


? 




STA 


0.OCT 


t 




JMP 


asocT 




snrT : 


.BLK 


1 





ON EXIT. BINARY VALUEtO «. 

-It IF INVALID 
SAVE RETURN ADDRESS 
ACO <~- CHARACTER TO BE VERIFIED 



SKIP IF ACO(CHARACTER) > AC2(ASCII "7") 

SKIP IF ACO(CHARACTER) >s ACKASCII "0") 

NOT A VALID OCTAL DIGIT 

AN OCTAL DIGIT — FIND iTS BINARY VALUE 

BY MASKING OFF ALL BUl SITS 13-15 AND RETURN 



MARK THE CHARACTER AS AN INVALID 
OCTAL DIGIT AND RETURN 



"OCT" RETURN ADDRESS 



;************ 

i C 

; ************ 
: ** ********** 

i 2 
************ 



**************************************** + *** <t * ## * ]> ^^ ir#<[1>#]># ^ ##)>#1># 
T OCT OCT OCT OCT D C T OCT OCT OCT 

***************** ********************************,***,,<,,*,, *»****#*„** 

B 02B 02B 02B 02B u 2 B 02B 02B n 2 B 
*********************************** ************* r ** # * ## * ### ^ # ^^^ 



"02b" PERFORMS OCTAL TO BINARY CONVERSION 
ENTRY: 02B + 3 

input: none 

OUTPUT: OCTAL STRING VALIDITY FLAG(U=INVALID. INVALID). 
BINARY VALUE OF THE OCTAL STRING(IF VALID). 

IN BVALC02B + 1) 
THE DELIMITING CHARACTER FOLLOWING THE END OF THE 



IN 02r 
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* 
* 


required: 


nop ; 


.RLK 


1 


m v i\ i : 


.RLK 


1 


"•'T ah; 


.BLK 


1 




STA 


3.S02B 




LDA 


U.ZERO 




STA 


0»BVAL 




STA 


Q»02B 




LDA 


0,POS7 




STA 


Q»MX0D2 


o?f i • 


JSR 


a.GETC 




STA 


U.NCHAR 




LDA 


2, .OCT 




STA 


0.0*2 




JSR 


1*2 




LDA 


o.a.ocT 




MOVL<* 


0,0, SZC 




JMP 


a)S02B 




DS2 


MX0D2 




JMP 


02B2 




LDA 


0,ZERO 




STA 


0»02B 




JMP 


aS02B 


npp; 


LDA 


1»BVAL 




ADDZL 


1,1 




MOVZL 


1,1 




ADD 


0,1 




STA 


1,BVAL 




LDA 


0,POS1 



STKJ.NG, IN NCHAK(02B + * ) 
"GETC", "OCT", "PUTC" 



ON EXIT, STRING VALlDITt FLAG( OslNVALlD, laVALlD » 

ON EXIT, ACCUMULATED BINARY VALUE OF THE STRING 

ON EXIT, THE CHARACTER FOLLOWING THE END OF THE STRING 

SAVE RETURN ADDRESS 

ZERO THE ACCUMULATED BINARY VALUE OF THE STRING 

ASSUME THE STRING IS INVALlD(02B <— 0) 
MX0D2 <-«, MAXIMUM NUMBER OF OCTAL DIGITS 

NCHAR <— NEXT CHARACTER INPUT 

CALL "OCT" TO CHECK IF THE NEXT CHARACTER 
IS AN OCTAL DIGIT 



CHECK THE "OCT" VERIFICATION FLAG 

NOT AN OCTAL DIGIT — THAT'S ALL OF THE STRING 

AN OCTAL DIGIT — CHECK IF THAT'S MORE THAN SIX DIGITS 

YES -- MARK THE STRING AS INVALID AND RETURN 



NO -- MULTIPLY THE OLD ACCUMULATED BINARY VALUE 
BY 8<SHIFT LEFT 3 BITS) AND ADD IN THE LATEST 
OCTAL DIGIT INPUT 



PROCESSED AT LEAST ONE UCTAL DIGIT. SO MARK 
THE STRING AS VALID FOR N0W(02B <— 1) 
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STA 


0.U26 




LDA 


OfNCHAP 




JSK 


of.PUTC 




JMP 


02BX 


! '' , yrD2: 


.BLK 


1 


s 1 5 b ; 


.BLK 


1 



ECHO THE LATEST OC I AL DiGIT INPUT 

GO GET ANOTHER CHARACTER 

COUNTER TO LIMIT THE GOAL STRING TO SIX DIGITS 

"02b" RETURN ADDRESS 

****************** ************************************* fr*******,*******,,,^,,.,,,^,,, 

02B 02B 02B 02B 02B 02 B 02B 02B 2 B 
****************************** + + + ## ^ + ^» ###+# ^ # ^ A%## + ^ # + + ## + #+#1# . 1>1([1(t# ^ ##!((]([i>J|tl|[<[!<tJ| , )|[ 
*+***************************» ##### ^ t## + ### ^ # + # ^ + + ^ ## + + # ^ ## + ###############)kj(rj|t1i; 

POPT POPT POPT POPT POPT PoPT POPT 
****************************************************************************^*^ 

: t'POPT" POPS A WORD OFF THE T0S STACK 

ENTRY: POPT + 1 

input: NONE 

OUTPUT: WORD POPPED OFF THE TOS STACK, IN POPT 

required: NONE 



moft: 



.BLK 

STA 

LDA 

LDA 

ADD 

LDA 

STA 

LDA 

SUB 

STA 

UMP 

;pcpt: .blk 



3»SP0PT 

2 i. TOS 

l.TOSP 

li2 

0i0«2 

0»POPT 

OtPOSl 

Otl 

1»T0SP 

aspopT 
1 



; ON EXIT. WORD POPPED OFF THE TOS STACK 
» SAVE RETURN ADDRESS 

AC2 O- STARTING ADDRESS OF TOS STACK 

AC1 < — . TOS STACK P0IN1ER 

ADD THESE TWO TO OFFSET TO THE TOP OF THE STACK 



POPT <-- WORD ON TOP OF THE TOS STACK 



TOSP <-- TOSP - 1 

RETURN 

"POPT" RETURN ADDRESS 



************ ******************************************************************* 
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fJQPT POP! POPT POP! POPT POPT POPT 
^ **t****************^4^*******t***»*********m*^^ ************************** 
*^ ********************** ******»******»**»****»*»** 1> + 1>t *»*.» 1>#1>1> ,, t , 1(1# „ lfl><r#1>]>1|(1|[ 

P s B p SG P s B PSB P s B PSD PSB PSB PSR 

n ******** + *************♦*** + **»*»♦*,,,»**„»*„ *+************♦***************** 



'FSI 



BUlLfS £ REVERSE POLISH STACK IN IPS OF T h E ASSERTION IN ATX7 



pen : 



entry: 
input: 
output: 
required: 



PSB + 1 

NONE 

STACK VALIDITY 

"GAT" ♦ "NTKN" 



FLAG(0 = INVAUU.1 = VAUD>, IN PSB 
, "POPT", "PShi", "PSHT'S "PUTS". "PUTC" 



.RLK 
STA 

LOA 
STA 
LDA 

JSR 
LOA 
JSR 
LDA 

STA 
JSR 
LDA 

STA 
STA 

STA 
LDA 
LDA 
STA 
JSR 



3.SPSB 

U.ZERO 

u.PSB 

0»SPACE 

S.PUTC 

0,DSIGN 

a.puTc 

0,PCS5 

OtNTOK 
a. GAT 
CUNEG1 

OtATXTP 
Q.IPSP 

O.TOSP 
2..PSHT 
0.NEG1 
0t0»2 

1.2 



ON FXlTt STACK VALIDITY FLAG ( OslNVALID »1=VALID ) 
SAVE RETURN ADDRESS 

ASSUME INVALID(PSB <— U) 

OUTPUT A FENCE("$») AS 1HE ASSERTION INPUT PROMPT 



MAKE NOTE OF THIS FENCE AS THE CURRENT(FIRST) 
TOKEN(NTOK <-- 5) 

5 CALL "GAT" TO INPUT THE ASSERTION TEXT INTO ATXT 

! MOVE THE ASSERTION TEXT POINTER BACK TO 

? THE FRONT OF THE BUFFERUTXTP <— *1) 
$ 

; MARK THE INTERMEDIATE ( 1 OS ) AND OUTPUT(IPS) STACKS 
I EMPTY(TOSP <~ -1 AND 1PSP <-- -1, RESPECTIVELY) 

1 

J PUSH A FENCE ONTO TOS(-ltO) 
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r^r 1 



LOA 


2, .PSHT 


LDA 


0iZE.RO 


STA 


0,0,2 


JSR 


1,2 


LDA 


2. .PSM1 


l_r.iA 


0,NEGi 


STA 


0,0,2 


JSR 


1,2 


LOA 


2. .PSH1 


LDA 


(J •ZERO 


STA 


0,0*2 


JSR 


1.2 


LDA 


O.NTOK 


STA 


O.PTOK 


LDA 


2. .NTKN 


JSR 


3,2 


LDA 


U.&.NTKM 


STA 


OtPTOK 


MOVfr 


0,0, SNR 


JMP 


PSB2 


LDA 


UtPTOK 



MOV 


0,1 


ADDZL. 


0,0 


ADD 


l.C 


LDA 


liMOK 


ADD 


1.0 


LOA 


1.P0S6 


SUB 


1,0 


LDA 


2. .ATPT 


ADD 


0,2 



PUSH A FENCE ONTO lPS(-i,0) 



PTOK <-- NTOK 

CALL "NTKN" TO FIND 



THE NEXT TOKEN IN THE ASSERTION 



0) 

IN THE ALLOWED 
IS STORED In 



TOKEN VALIDITY FLAG 

NTOK <-- "NTKN" TOKEN UASS 

CHECK IF THE TOKEN WAS VALlDtNTOK > 

NO -- INVALID TOKEN 

YES -- LOOK UP THE (P10K.NTOK) PAIR 

TOKEN PAIR TABLE -- Tht ATPT(5 X 5) 

ROKv MAJOR ORDER, SO THt (PTOK.NTOK) PAIR IS OFFSET 

FROM THE BEGINNING OF 1 rtE TABLE BY 

5 * (PTOK - 1) + (NTOK - 1), 

OR (5 * PTOK) + NTOK - fc> ENTRIES 



ACO <-- (5 * PTOK) 

ACO <-- (5 * PTOK) + NILK 

ACO <-- (5 * PTOK) + NTOK - fe 
AC? <« STARTING ADDRESS OF ATPT 
AC? <-- ADDRESS OF <P7GK,NTOK) ENTRY 
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pc;n 



LUA 


OiO.il 


N'OVtt 


D1U1 SNH 


JMP 


PSL2 


LDA 


U iMOK 


LUA 


1.PGS1 


SUL3 


1.0 


LDA 


2. .TJT 


ADD 


0.2 


JF.P 


0.2 


LDA 


2. .PUTB 



LDA 


0..ERR4 


STA 


. « 2 


JSR 


1.2 


LDA 


O.ATXTP 


LDA 


1.P0S2 


SUB 


l.C 


LDA 


2..ATX7 


ADD 


0.2 


LDA 


0.0.2 


JSR 


oi.PUTC 


LDA 


0.1.2 


JSR 


oi.PUTC 


LDA 


0,2.2 


JSR 


a.puTc 


LDA 


0.3.2 


JSR 


oi.PUTC 


LDA 


0.M.2 


JSR 


bJ.PUTC 


LDA 


O.CUOTE 


JSR 


oi.PUTC 



CHECK THE. (PTOK.NTOK) E.NTRY 

INVALID PAIR 

VALID PAIR -- CALCULATE THE DISPLACEMENT INTO THE 

TOKEN JUMP TABLE -- ,ful + (NTOK - 1) -, AND BRANCH 

TO THE APPROPRIATE TOKEN HANDLER 



FLAG THE INVALID TOKEN QR TOKEN PAIR -- DISPLAY 
THE TWO CHARACTERS BEFORE AND AFTER THE LAST 
} CHARACTER PROCESSED IN ATXT TO HELP PINPOINT THF 

- ERROR -- AND RETURN 
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'-F3 



' ■ • 

v n <: |_j : 

"*■ T ♦ 

i jt : 



JMP 

LOA 

LDA 

ST A 

JSK 

JMP 

.HLK 

.BLK 

.RLK 

.RLK 

.BLK 

PSB1 

TJT 

JMP 
JMP 

jmp 
jmp 

JMP 



bJSrSB 
2. .PUTb 
U, .F.RPb 

1,2 

aSPSB 

1 

1 

1 

1 

1 



TOKl 
T0K2 
I OK 3 
T0K4 
rOHb 



FLAG UNMATCHED PARENTHESES AND RETURN 



TOKEN CLASS OF CURRENT 1 OKEM 

OPERATOR ID SAVE LOCATION 

OPERATOR PRIORITY SAVE LOCATION 

TOKEN CLASS OF PREVIOUS TOKEN 

"PSB" RETURN ADDRESS 

ADDRESS OF "PSBl", ENTRY POINT IN "PSB" FOR 

PRt, i-*-SSlNG THE NEXT ASSERTION TOKEN 
STARTING ADDRESS OF TUKLN JUMP TABLE 



TOKEN 
TOKEN 
TOKLN 
TOKEN 
TOKEN 



CLASS 
CLASS 
CLASS 
CLASS 
CLASS 



1 
2 
3 
4 
5 



it 



M ) II 



QPLKATOR 

OPERAND 

FENCE 



TOKEN CLASS = 1 — »(" - 
GO GET THE. NEXT TOKEN 



- PUSH IT ONTO TCM10,0> IMMEDIATELY 



AND 



I "1 u ] 



LDA 


2..PSHT 


LDA 


UtPOSlU 


STA 


U,0»2 


JSR 


1,2 


LDA 


2..PSHT 


LDA 


O.ZERO 


STA 


0.0,2 


JSR 


1,2 


JMP 


aJ.PSBl 


TOKEN 


CLASS = 



2 — ••)» — POP OPERATORS OFF TOS AND PUSH THEM 
UNTIL A MATCHING <• ( " IS FOUND — DISCARD BOTH PARENTHESES AND 



ONTO IPS 



GO GET THL NEXT TOKEN 
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•Ik, 



L.PA 


2..P0PT 


JSR 


1,2 


LDA 


2, .POF'T 


JSR 


1.2 


LDA 


U.6.POPT 


STA 


O.OPID 


LOA 


i.negi 


SUBtt 


OiliSNR 


JMP 


PSE3 


LDA 


1.POS10 


SUBtf 


0.1 »SNR 


JMP 


oi.PSBl 


LDA 


2, .PSHI 


LDA 


U.POS1 


STA 


0t0i2 


JSR 


1.2 


LDA 


2.. PSHI 


LDA 


U.OPID 


STA 


0.U.2 


JSR 


1.2 


JMP 


TOK2 



POP PRIORITY Of TOP TLS OPERATOR 

POP ID OF TOP TOS OPEhAlOR 

OPID <-- ID OF OPERATOR JUST POPPED OFF TOS 

CHECK IF THE OPERATOR ^UST POPPED OFF TCS 
WAS A FENCECOPERATOR ID = -1) 
YES -- UNMATCHED PARENTHESES 

NO — CHECK IF IT WAS A •'<"< OPERATOR ID = 10) 

yes — found the matching ••)" — ignore them 

AND GO GET THE. NEXT TOKEN 

NOT A FENCE OR •• { « . SO OUTPUT THIS OPERATOR 

ONTO IPS(l.OPID) AND GO TRY THE MEW TOP OF TOS 



! " ■< ?. 



TOKEN CLASS = 3 -- OPERATOR — IF THE CURRENT OPERATOR'S PRIORITY IS 
HIGHER THAN THAT OF THE OPERATOR ON THE TOP OF TOS» PUSH IT ONTO TnS 
IMMEDIATELY ... OTHERWISE, POP OPERATORS OFF TOS AND PUSH THEM ONTO IPS 
UNTIL THIS CONDITION IS MET, THEN PUSH II ONTO TOS ... I.m EITHER CflSE, 

GO GET THE NEXT TOKEN AFTER PUSHING THE CURRFNT OPERATOR ONTO TOS 



LDA 
LDA 



2, .NTKN 
U.1.2 
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i "^31 



f ->u3? 



STA 


U.UPID 


LDA 


0.2. 2 


STA 


U.OPPR 


LUA 


2. .TOS 


LDA 


.TCSP 


ADD 


J » 2 


LOA 


U.U.2 


LDA 


1 . OPPR 


AOCZ.1 


0.1. SZC 


J^P 


T0K32 


LUA 


2..PGP1 


JSR 


1.2 


LUA 


2..P0PT 


JSK 


1.2 


LDA 


2..PSHI 


LDA 


0.POS1 


STA 


0.0.2 


JSR 


1.2 


LDA 


2..PSHI 


LDA 


u.a.POPT 


STA 


0.0.2 


JSK 


1.2 


JMP 


TOK31 


LDA 


2..PSHT 


LDA 


O.OPID 


STA 


0.0.2 


JSR 


1.2 


LDA 


2..PSHT 


LDA 


O.OPPR 


STA 


0,0.2 


JSR 


i.2 



UPIU <-- CURRENT GPtKMoR'S ID 

OPPR <-- CURRENT OPERATOR'S PRIORITY 



AC? <-- ADDRESS OF TOP OF TOS 

ACO <-- PRIORITY OF OPERATOR ON TOP OF TOS 

AC1 <-- CURRENT OPE-RATUKts PRIORITY 

SKIP IF AC1 (CURRENT OPERATOR'S PRIORITY) <= 

ACO(PRIORITY OF OPERATOR ON TOP OF TOS) 

HIGHER PRIORITY THAN TUP OF STACK ^- STACK IT 

EQUAL OR LOWER PRIORITY THAN TOP OF STACK -- POP 

TOS OPERATOR AND PUSH x\ ONTO 

IPSdt CURRENT TOS OPERATOR'S ID) 



THE 



GO TRY THE NEW TOP OF 1 US 
PUSH THE CURRENT OPERATOR 
GO GET THE NEXT TOKEN 



ONTO TCS(OPID.OPPR) AnD 
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J MP 



.tJ.HSBI 



PkR 



TOKEN CLASS = 4 -- OPERAND - 
GO GTT TIIL NEXT TOKEN 



- PUSH II ONIb IPS IMMEDIATELY 



AND 



LJA 
LDA 
LOA 
STA 
jSK 
LDA 
LOA 
LDA 
STA 
JSK 
J MP 

TOKEN 
UNTIL 

LOA 
JSR 
LOA 
JSK 
LDA 
STA 
LOA 
SUBfc 

J MP 

LDA 

SUB# 

JMP 

LHA 

LDA 



2, .NTKN 

U .1*2 

2..PSH1 

U » » 2 

1,2 

2, . NTKN 

0,2,2 

2, .PSItI 

0,0,2 

1,2 

ol.PSBl 



PUSH THE OPERAND TYPE UNTO IPS 



PUSH THE OPERAND VALUE UNTO IPS 



CLASS = 5 -- FENCE -- POP ENTRIES OFF TOS 
THE MATCHING FENCE IS FOUND, THEN htlURN 



AND PUSH THEM ONTO IPS 



2,.P0PT 
1,2 

2,.P0PT 
1,2 

0,hi.POPT 

U.CPID 

1,POS10 

u ,1 , SNK 

PSB3 
1.NEG1 
U,l ,SNR 
T0K51 
2, .PSHI 
UtPOSl 



POP PRIORITY OF TOP TOS OPERATOR 

POP ID OF TOP TOS OPEKAiOR 

OPID <-- 10 OF OPERATOR JUST POPPED OFF TOS 

CHECK IF OPERATOR JUST POPPED OFF TOS 
WAS A "("(OPERATOR ID = 10) 
YES -- UNMATCHED PARENTHESES 

NO -- CHECK IF IT WAS A FENCE ( OPERATOR ID = -1) 
YES -- GO PUSH A CLOSINb FENCE ON IPS AND RETURN 
NO -- PUSH THIS OPERA"? OK ONTO IPS(l.OPID) 
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i ^ u c i 



STA 


f U , 2 


JSR 


i.2 


LPA 


i!«.PSHl 


L'JA 


u.CPID 


STA 


ui L»2 


JSK 


1.2 


Jfc.P 


TOKb 


IDA 


2..PSHI 


LOA 


U.foLGl 


STA 


0«0.2 


JSR 


1*2 


LDA 


2. .PSHI 


LOA 


0t ZERO 


STA 


0.0.2 


JSR 


1.2 


LDA 


U.POS1 


STA 


G.a.PSB 


JMP 


cuSPSB 



GO TRY THE NEW TOP OF 7 0S 

ALL DONE — POSH A FENCE ONTO IPS(-l.U), 

STALK VALIDtPSB <~ 1) AND RETURN 



MARK THE 



Ft) PSB PSB PS B PSB PSB PSB PSB D * r 
*<**********************************************,^^ + ^^ 
*•♦*********************„** *************************! I I ****** 

p n r r, c r r , *************************************************** 

>L FSE l J SE PSE PSE P S E PSE P S F d «; r 
♦■♦*** + ***************** + ************** 4 * 4ft44 * A4 . .,? 1 ^ s> t- PSF 

*****»• ************************************************* 

"PSL 



EVALUATES A REVISE POLISH STACK BUILT b> "PSB" 



ENTRY: 
INPUT: 

output: 
required: 



PSE + 2 

AODRESS OF STACK TO BE EVALUATED, IN PSE 
LOGICAL EVALUATION OF STACK « U=FLASE . 1=TRUE ) . 
IN PVALCPSE +1) 

NONE 



97 



--r : 


.13LK 


i 


- ■■ n : 


• BLK 


i 




STA 


3.SPSE 




LDA 


ii.PSE 




LDA 


3. .SPS 




LUA 


. « 2 




ST A 


0,0,3 




LDA 


i.1.2 




ST A 


1.1 «3 


!-' - f 1 : 


IMC 


2.2 




INC 


2.2 




IMC 


3.3 




INC 


4.3 




LDA 


0.0,2 




ST A 


0*0.3 




LOA 


1.1.2 




STA 


1.1.3 




MUVLtt 


U.CSNC 




JWp 


PSE1 




LDA 


OiZEP.O 




STA 


u.spsp 


uc-r?: 


LDA 


O.SPSP 




IMC 


0.0 




IMC 


U.O 




STA 


O.SPSP 




LDA 


2, .SPS 




ADD 


0.2 




LDA 


J ,0 .2 




MOVL« 


U.O. SMC 




JMP 


PSE 4 




LDA 


O.SPSP 




LDA 


2.. SPS 




ADD 


u .2 



DM LNTRY, ADDKLSS Of- SlACK TO BE EVALUATED 

ON EXIT. LOGICAL EVALUATION OF STACK ( U=FALSE , 1=TRUE ) 

SAVE RETURN ADDRESS 

COPT STACK TO BE EVALUAIED TO SCRATCHPAD POLISH STACK 



CHECK FOR A FENCE 
NO -- MOVE THE NEXT ENTRY 

YES — MOVE THE SCRATCHPAD POLISH STACK POINTER 
? BACK TO THE BEGINNING UF THF STACKJSPSP <-- 0) 



! LOOK AT THE NEXT STACK ENTRY (SPSP <-- SPSP + 2) 

AC2 <-- ADDRESS OF NEXT STACK ENTRY 

ACO <-- ID FIELD OF NEXl STACK ENTRY 

CHECK IF IT IS A FENCEUD - -1) 

NO -- OPERATOR. LITERAL OPERAND OR SYMBOLIC OPERAND 

YES — THE STACK'S VALUE IS IN THE VALUE FIELD nF 

THE ONLY STACK ENTRY NOT MARKED UNUSEU(ID = 0) 

AC2 <-- ADDRESS OF FENCE 



9fi 



T3 



"-rt4 



M C f I 



•^^Ffi: 



LI) A 


1.HUS1 


SUB 


1.2 


SUB 


1.2 


LOA 


0.0.2 


movtt 


0.0. SMK 


jwp 


PSL3 


LCA 


0.1.2 


MQVfc 


U»0»SZR 


LDA 


O.LOGT 


STA 


O.PVAL 


JMP 


qjSPSE 


MOVP 


.0 .SNC 


j?jip 


PSE7 


LDA 


O.SPSP 


LOA 


2..SPS 


ADD 


0.2 


LDA 


0,1,2 


LOA 


1..0JT 


ADD 


0,1 


STA 


l,OJTA 


LDA 


1,PUS1 


SUB 


1.2 


SUB 


1.2 


LDA 


0,0,2 


MOV# 


U , , SNK 


jrip 


PSE5 


LDA 


0,1,2 


STA 


U,OPRB 


LDA 


o.ZERO 


STA 


0,0,2 


SUB 


1,2 



BACK UP TO THE PREVIOUS ENTRYJAC? <~ A C2 - 2) 

CHECK IF IT IS MARKED UNUSEDCID = 0) 

YES -- BACK UP AND TRY AGAIN 

NO — THIS ENTRY'S VALUE kOPO IS THE STACK'S 

OVERALL VALUE ' ACK S 

! S £ 7 r T TH ! £ f ACK VAUUE IS 000000/OU0001 
• NON-ZERO, SO MAKE IT IDENTICALLY 000001 
PVAL <-- STACK VALUE ANJ RETURN 

CHECK IF THE CURRENT ENTRY IS AN OPERATORfin - «i 
NO - LITERAL OPERAND OK SYMBOL^ IC OPERAND ' " * ,! 

p " CULA1 THE DISPLACEMENT INTO THE OPERATOR 
S' P r AL£ " -°JT ♦ ENCODED OPERATOR -- TO 
BRANCH TO THE APPROPRIATE HANDLER 

ACO <-- ENCODED OPERATOR 

AC1 <~ STARTING ADDRESS OF OPERATOR uUMP TABLE 

OJTA <- OPERATOR JUMP TABLE ADDRESS 
NOW, BACK UP IN THE STALK TO FIND THF 
OPERATOR'S OPERANDS 
BACK UP TO THE PREVIOUS ENTRY (AC2 <- AC2 

ACO <-- PREVIOUS ENTRY'S ID FIELD 
CHECK IF IT IS MARKED USEDdD > 0) 
NO -- BACK UP AND TRY AOAIN 

YES -- FIRST OPERAND FOUND Is OPRB 



2) 



? MARK THIS ENTRY UNUSED NOW(I D <-- 0) 

5 BACK UP TO THE PREVIOUS ENTRYCAC2 < — AC2 



2) 
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SUbi 


1.2 




LDA 


0»0»2 




movh 


U iO»SNR 




jmp 


PSL6 




LDA 


0*1*2 




STA 


U.OPRA 




LDA 


iJiZERG 




STA 


U ,0»2 




LDA 


O.OPRB 




LDA 


l.OPRA 




JMP 


olOjTA 


^cr"' • 


MOVR 


U«0tSNC 




JMP 


PSE2 




LDA 


UtSPSP 




LOA 


2. .SPS 




ADD 


Ui2 




LDA 


U, ail t 2 




STA 


u , 1 , 2 




JMP 


PSE2 


" i t .a : 


.BLK 


1 


nop A : 


.RLK 


1 i 


n n r p • 


.BLK 


1 ; 


sncf: 


.RLK 


1 5 


.\i: 


CUT 


1 


"IT • 


JMP 


OPO 5 




JMP 


0P1 ; 




JMP 


0P2 ; 




JMP 


0P3 ; 




JMP 


0P4 ; 




JMP 


JP5 5 




JMF> 


0P6 ; 




JMP 


0P7 5 




JMP 


uPti J 




JMP 


0^9 ; 


in r j 


ADD 


U,l ; 



ACO <-- PREVIOUS ENTRY'S ID FIELD 
CHECK IF IT IS MARKED USED (ID > 
NO -- BACK UP AND TRY MuAlN 



C) 



YES -- SECOND OPERAND F uUND IS OPRA 

MARK THIS ENTRY UNUSEL iMOW ( ID <— 0) 

ACU <-- OPERAND R 

AC1 <-- OPERAND A 

JU^P TO THE APPROPRIATE OPERAND HANDLER 

CHECK IF IT IS A SYMBOLIC OPERANDCID = 2) 

DO —. MUST BE A LITERAL OPERAND -- IGNORE IT 

YES -- ITS VALUE FIELD is THE ADDRESS OF ITS VAI UE 



V/\LUE FIELD <- 
GO PROCESS THE 
OPERATOR JUMP 
LEFT OPERAND I 
RIGHT OFERANO 
"PSE" RETURN A 
ADORESS OF OPE 
OPERATOR U 
OPERATOR 1 
OPERATOR 2 
OPERATOR 3 
OPERATOR <+ ■ 
OPERATOR 5 • 
OPERATOR 6 ■ 
OPERATOR 7 • 
OPEKATOR a • 
OPERATOR 9 • 
ADD OPERATOR - 



- (VALUL FIELD) 

NEXT STALK El^TRY 
TABLE AUDHESS 
N POLISH 1RIPLES 
IN POLISH TRIPLES 
DDRESS 

RATOR JUMP TABLE 
ADDITION 
SUBTRACUUN 
EQUAL 
NOT-EQUAL 
LESS-THAN 
GREAFER-lHAN 
LESS-THAN-OR-EQUAL-TO 
GREATER-lHAN-CR-EQUAL-TO 
AND 
OR 

- AC1 + ALO 
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MIT) • 



jim ; 



Oj| • 



tine; 



nPf ; 



dm : 



n"f : 



M .>c ; 



MOV 


1,2 


J MP 


UPEND 


SUB 


0.1 


MOV 


1.2 


j MP 


OPtND 


LOA 


2.LGGT 


SUB» 


u.l.SZK 


LOA 


itLOGF 


jyp 


uPENU 


LOA 


2.L0GT 


SUiitt 


0,1, SNR 


LDA 


2.L0GF 


J MP 


UPEND 


LDA 


^.LOGT 


SUBLtt 


0.1. SNC 


LDA 


2.L0GF 


JMP 


UPEND 


LOA 


2»L0GT 


SUBLft 


i » OtSNC 


LOA 


2.L0GF 


JMP 


OP END 


LOA 


2. LOOT 


SUBL# 


i.u.szi 


LOA 


2.LOGF 


JMP 


UPEND 


LOA 


2.L0GT 


SUBLtt 


0,1 ,szc 


LOA 


.ifLOGF 


JMP 


UPEND 


ANO 


0,1 


MOV 


1.2 


JMP 


UPEND 


COM 


, 


A<>!D 


0,1 


ADC 


0,1 



AC? < — OPRA 4 OPRB 

SUBTRACT OPERATOR — 



All - ACO 



ASSUMF TRUE 



AC* <-- OPRA - OPRB 

EQUAL OPERATOR -- ASSUMl TRUE 

SKIP IF AC1 = ACO 

FALSE 

AC2 <-- OPRA = OPRB 

NOT-EQUAL OPERATOR — 

SKIP IF AC1 <> ACO 

FALSE 

AC2 < — OPRA <> OPRB 

LESS-THAN OPERATOR -- ASSUME TRUE 

SKIP IF AC1 < ACO 

FALSE 

AC2 <-- OPRA < OPRB 

GREATER-THAW OPERATOR 

SKIP IF AC1 > ACQ 

FALSE 

AC2 <-- OPRA > OPRB 

LESS-THAN-OR-EQUAL-TO OPERATOR -- ASSUME TRUE 

SKIP IF ACl <= ACO 

FALSE 

AC2 <-- OPRA <= OPKB 

GREATER-THAN-OR-EOUAL-lu OPFRATOR -- ASSUME TRUr 

SKIP IF ACl >= ACO 

FALSE 

AC2 <-- OPRA >= OPRB 

AND OPERATOR -- ACl X, ALO 



-- ASSUME TRUE 



AC2 <-- OPRA R OPRB 
OR OPERATOR -- ACl ! 



ACO 
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r.t 



mv 


iu 


! AC2 <-- OPRA : 


LOA 


U.SPSP 




LP A 


3, .SPS 




ADD 


U ,3 




S7A 


til ii , 


PUT THE RESULT 
OPERATOR STACK 
THE NEXT STACk 



JMP 



PSE2 



UPRd 



INTO Tht VALUE FIELD 
ENTRY oubT PROCESSED 

entry 



OF THE 
AND GO 



PROCTSS 



fSC PSE fSf - p SE PSE PSF PSE PSE D <; r 

***************************************** 

p s ii t p «? u i *****;******************************************** 

iH1 FS HI PSHI FSHI PS HI PS HI PSwI 

+ ****************************** + 4 ** + _ 4jki * r o M A 



"PSHI" PUSHES A WORD OI\JO THE IPS STACK 



entpy: 

INPUT; 

output: 
required: 



PSHI + 1 
WORD TO BE 
NONE 
"PUTB" 



PUSHED ONTO THE 1P S STACK, IN PSHI 



p p .V I 



.BLK 

STA 

LDA 

INC 

STA 

LDA 

ACCZfl 
ji»-p 

LDA 

LDA 
STA 



itSPSHl 

U.IPSP 

U»0 

O.IPSP 

1,1 PSM 

1»U,SNC 

PSHIl 

2,.PUTb 

0, .ERR3 
u»0»2 



ON ENTRY, WORD TO BE PUSHED ONTO THE iPS STACK 
SAVE RETURN ADDRESS 



IPSP <-- IPSP + 1 

AC1 <-- IPSM(MXIMUM VALUE OF IPSP) 

SKIP IF ACOdPSP + 1) > ACKIPSM) 

NO MORE ROOM -- OUTPUT A FATAL ERROR 

MESSAGEUPS OVERFLOW) AND RETURN TO "ALA" DIRECTLY 
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v II 



v nc l, X 



JSR 


1,2 


JMP 


ai.ALAl 


LOA 


2, .IPS 


ADD 


0,2 


LISA 


U,f SHI 


STA 


U , i 2 


JwP 


oiSPSHI 


.RLK 


1 



! THERE WAS ROOK. SO ADL J HE CHARACTER AND RETURN 



; "PSHI" RETURN ADDRESS 



************** ********* >***********************. *a.* 

p c u T n c ,, ************************************************* 

S H * ^ S H I PSHI F S || I PSHI PSHI P S u I 

,,**,******« n t nnn*MttM t nMnnM*Mm**M*n^* t mMmmmmm*n 

-*-*—*;***-****^ 

PSIIT PSHT PSHT FSHT P S H T PShT P S u T 

-^-*^***^**-*****^******************,***^^^^^ + + + ^^^^^J^J^^ 



"PSHT" PUSHES A WORD ONTO r HE TOS STACK 



ENTRY : 

input: 

uuTPur: 

required: 



PSHT + 1 
WORD TO BE 
NONE 
"PUU3" 



PUSHED ONTO THE lt>S STACK, IN PSHT 



hqi- t : 



.RLK 

STA 

LEA 

INC 

STA 

LHA 

ADC*W 

J'VSP 

LDA 

LDA 
STA 



5.SPSH7 
U.TOSP 
J » 

0,TOSP 
If TOSM 
1 » 0»SNL 
PSUT1 
2, .PUTB 

Of .ERR2 
u , f 2 



! ON ENTRY, WORD TO BE PUSHED ONTO THE TOS STACK 
J SAVE RETURN ADDRESS 



TOSP <-- TOSP + 1 

AC1 <-- TOSMMAXIPUM VAi»UE OF TOSP) 

SKIP IF AC0<TOSP + 1) > ACl<TOSNO 



NO fiORE ROOM -- OUTPUT A FATAL ERROR 
MESSAGE (TOS OVERFLOW) AND RFTURN TO 



"ALA" DIRECTLY 
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v f.-. c h 7 



JSK 


1*2 


J"P 


a.ALAl 


LP A 


2 , .TOS 


ADD 


iU2 


LOA 


U.PSHT 


STA 


u i L »2 


J!»iP 


ajSPSHT 


.RLK 


1 



J THERE WAS ROOM. SO ADL 1 HE CHARACTER AND RETURN 



5 "PSHT" RETURN ADDRESS 



P S H T f S H T P S H T F S H T PSHT P S H T P S H T 
P U T B P U T U P U T 8 P U T B P U T B P U T B P U t B 



"PUTp" PERFOkMS BUFFERED TELETYPE output 



entry: 
input: 
output: 
required: 



PUTB + 1 
STARTING 
NONE 
"PUTC" 



ADDRESS OF TEX! BUFFER TO BE OUTPUT, 



IN PUTR 



put!? ; 



t'1'7 !il 



.RLK 
STA 
LDA 
LOA 
MOV 8 

J MP 

JSR 

MO\/S 

JSR 

Lhl 

JMP 



i.SPUTC 

2.PUTB 

U.0,2 

O.O.SNR 

aiSPUTB 

ai.PUTC 

U ,C 

qj.F>UTC 

PUTBl 



ON ENTRY, STARTING ADDRtSS CF TEXT BUFFER 

SAVE RETURN ADDRESS 

AC? <~- STARTING ADDRESS OF BUFFER 

ACO <-- NEXT WORD OF BUFFER 

CHECK FOR A NULL WORD 

YES -- EUO OF THE IEXT 

MO -- OUTPUT THE RIGHT CHARACTER 

SWAP THE CHARACTERS 

OUTPUT THE LEFT CHARACTtR 

INCREMENT AC2 TO POINT TO THF 

NEXT «ORD OF THE BUFFER AND f,0 BACK 



10<4 



V J I Jl'l . B|_K 1 



J "PUFB" HLTUHN AUDRLSS 



**********+♦***************+******♦*******», ,„» 4# 

P .) r r 3 P U T R P i' t q d n% ********************************* 
.... '< ^ r u P o T 8 P U T B H U T B P U T D P U T B 



**************************^****» # , + + * % „ '„. " " . « r u i u r u T B 

*«******************«.*„„»*n«*n««nn««ii **************************** 
p u t c pure p uT t rrTc^pTrr^rr^ 
-*-********-************************^ 

»Pl>rr.. PERPOKMS SINGLE CHARACTER TELETYPE OUT>U| 



ENTHYi puTf 

o"r P u i; : ^r cTtH T0 UE 0UTPUT - IN AL ° 

re qui red: none 
-"tc: skpb7 rn, , BAI , UNTIL Tri[ TELtmt K f;QT BugY 

DOAS U.TTO ; OUTPUT THE CHARACTER IN AGO 
JMP »3 ; HE TURN 

; 

*»**t + ** + ********* + ** + + ' ruii, putc PUTC 



******* **************************************♦***»„ 

■.Pr.AC" pETHItVES THE CHARACTER 1N ATXT, THE ASSERTION TEXT BUFFER, 

TEXT POSTER CUKRE NT L Y POINTED TO BY ATxTP, THE ASSERTII 



en thy: « NA r 
input: none 
output: next assertion text character, i N aco 
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NONE 

ATXTP, THE ASSERTION TEXT P0a|\|TER, IS ADVANCED 

! AC? <-- STARTING AODRLSi. OF ASSERTION TEXT BUFFFP 

; AC1 <-- ASSERTION TEXT POINTER 

? INCREMENT THE ASSERTILN TEXT POINTER 

! ATXTP <-- ATXTP + 1 

! ADD THESE TWO 10 OFFsLl TO THE NEXT CHARACTER 

? ACO <-- NEXT ASSERTION 1EXT CHARACTER 

J RETURN 

K»*l*Un*H + *»*******l ** + **********************■****************************** 

R N A C R N A C K N A C R N A C K N A C R N A C R N A C 

*********** ****** ****** *********************** ********************************* 
ft************************. ********************** **** # ************************** 

S P 3 S P 3 s P 3 SP3 S P 3 & p 3 SP3 S P 3 s P 3 

****************************************************** 



REiJl 


i«el: 


NOTE 


t 
■ 


LP A 


2, .ATXT 


LDA 


1. ATXTP 


If C 


1.1 


STA 


1. ATXTP 


ADD 


1.2 


LP A 


U ,U .2 


jyp 


o,3 



. ******* ********** ****** 



"Spo" OUTPUTS TURff. SPACES 



SH-3 



entry: 


SP3 


input; 


NONE 


outpui : 


NONE 


reui'Irep: 


"PUTC" 


STA 


3.SSP3 


; SAVE RETURN ADDRESS 


LUA 


u.SPACL 


; ACQ <-- ASCII SPACE 


J?R 


ui.PUTC 


; CNEt 


JSR 


ol.FUTC 


! TlrwO • 


JSR 


ai.PUTC 


! THREE 


Jf'P 


oiSSf-3 


; RETURN 


.RLK 


1 


5 "SP3" RETURN ADDRESS 



v <: f 3 : 

• 

;*f*******4* *************** 

: S P 3 S p 3 S P 3 S P 3 S p 3 b P 3 S P 3 S P 3 s P 3 



; *************************** ************************** 
t~> X C n ■» C ri 2 L r, - r> r . -, ^ ~ -. _ _ 
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*■* * .+ *******************t**** ******* ******************************************** 

5 + * * :t *****+J*+**^** ************* ************************************************ 

S R C P SRCH S R C H S R C H b K C H S R C H S R C H 

****** ***************** |c ************* ******************************************* 



ii su 



LH» SEARCHES FOh A!. IDENTIFIES IN THt SYMBCu TABLF 



ENTNY: SRCH + 1 

input: address or identifier tc be searched 

output: absolute address<-i IF NOT FUUND) of 

required: nomf 



FOR, IN SRCH 
IDENTIFIER. IN 



SRCH 



Till 



.PLK 

STA 

LDA 

LDA 

APD 

STA 

LUA 
STA 
LUA 



LDA 

LDA 

LDA 

SUBH 

J(*"P 

Lf)A 

LPA 

SULStt 

jyp 

LDA 



3,SSRCh 

biPGSfe 

l.SYMNO 

U,l 

ltNSRCh 

u . .SYMR 
U,PSRCH 
2f SRCH 



3,PSRCH 

• » 2 

1.0,3 

0.1, SZR 

SRCH2 

0,1,2 

1,1.3 

U.l.S/R 

SRCH2 

0,2,2 



ON ENTRY, ADDRESS OF 
SAVE RETURN ADDRESS 



IulNTIFIER TO BE SEARCHED FOR 



NSRCH <-- SYMNO(NUMBEh UF USER SYMBOLS) + 
6 (NUMBER OF RESERVED SYMBOLS) 

PSRCH <-- STARTING ACUkLSS OF SYMBOL FABLE 

COMPARE THE THREE fcORDS(5 CHARACTERS PLUS <00>) 

OF THE IDENTIFIER BEING SEARCHED FOR wITH THE THREE 

WORKS OF THE NEXT SYFbut TABLE IDENTIFIER — 

THE IDENTIFIER HAS BEEN FOUND ONLY IF ALL THREE MATCH 



MIS-MATCH ON InORD 1 



MS-MATCH ON WORD 2 
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LHA 


1 » c- » 3 ; 




S U b ft 


biltSZK ; 




J*"P 


SRCH2 ; 




LHA 


U , 3 , 3 ; 




STA 


u.SKCH ; 




jft-P 


jSSKCH ; 


v ., rf 2: 


LL-A 


U.P0S4 ; 




LfJA 


liKSRLH ; 




ADD 


i • » 1 ; 




STA 


i.PSKCH ; 




L'SZ 


l-SKLH ; 




j»'P 


SRC Hi ; 




Li) A 


u.nlgi ; 




STA 


G.SRCH ; 




JVP 


biSSKCH ; 


»i"cn: 


.BLK 


1 j 


t-rnni; 


.BLK 


1 ; 


scnCt : 


• BLK 


1 ; 



MIS-MATCH ON WORD 3 

FOUND IT -- SPCH <-- lucNTlFIER'S ABSOLUTE ADDPFSS 



PSKCH <— p S RCH + <4 TL LOOK AT THE NEXT SYMBOL 

TABLE EfgTHY 

CHECK FOR THE END OF 1 He TABLE 

HO -- KELP LOOKING 

YES — PARK THE IDENTIFIER AS UNDEFINED AND RETllRN 

NUMBER OF ENTRIES TO BE LOOKED AT 

SEARCH POINTER 

"SKCH" RETURN ADDRESS 

"******************* + * ********************* + ********„***********„*„„„„„ 
S P C H SRCH SRCH SRCH SRC H SRCH S R r M 

T l S R T I S K T I S R T I S R 1 I S P. T I S R T T c R 

"TTSR" SERVICtS TELETYPE INPUT INTERRUMs DUPING PPOGRAK 
tXECUTlON IN "ECM" 



ENTPY; 


TISP 


input: 


NOME 


fM. iTT;! , J • 


NONE 


re'Juikpe: 


"DMP" 
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I '<:•?: 


ST A 


.5. ST I A3 




STA 


<>t ST I Air 




STA 


i.STIAl 




STA 


ti . S T I A 




MOVR 


u t 




STA 


u » s r i c y 




LOA 


o » C 




STA 


u.stish 




CI AC 


U . 1 T I 




LOA 


ItCWASK 




AND 


1 • c 




LDA 


I. ESC 




SUOt? 


Ut 1»SMH 




jmp 


IISR1 




LDA 


U.STICY 




h(,VL 


ii.D 




LOA 


UtSTlAU 




l:»a 


ItSTlAl 




LPA 


2tSTIA£ 




LOA 


3tSTIA3 




NIOS 


TTI 




J?jiP 


aiSTISR 


r t c tf i : 


LDA 


2, .DMP 




LDA 


U.PUS4 




STA 


U»(Jt2 




JSR 


X f 2 




J MP 


a). ALA 1 


s T t a n : 


.HLK 


1 


s "" t ,vi : 


.HLK 


1 


i"." ;> : 


.HLK 


i 


<t»a3; 


, r <LK 


1 


s t ty; 


.HLK 


i 


s t t s r : 


.RLK 


1 



SAVE. INTERRUPTED CPU SIMTE 



SAVt RETURN ADDRESS 

ACO <— INPUT CHARACTER AND CLEAR TELLTYPE INPUT 
AC1 <-- 000177<ASCII CHARACTER MASK) 
WASK OFF THE PARITY BI1 

CHECK IF IT WAS AN "ESC" 

YES -- ABNORMALLY TERNuNATE PROGRAM EXECUTION 

NO — IGNORE IT — RESTORE INTERRUPTED CPU STATF 



RESTART THE TELETYPE INPUT 
RETURN TO THE POINT 01 INTERRUPTION In 
CALL "DMP" TO OUTPUT THt USFR PROGRAM 
AT AN ABNORMAL TERMINA I ION ( pw-P <--<♦) 



"ECM" 
STATE 



RETURN DIRECTLY TO "ALA" 
TELtTYPE INPUT INTERPCPI 
TELLTYPE INPUT 
TELLTYPE INPUT 
TELLTYPE INPUT 
TELETYPE INPUT 



"TISR" RETURN 



INTERRUPI 
iNTERRLPi 
INTERRUPT 
INTERRUPI 
ADDRESS 



ACQ 
AC1 
AC? 
AC3 
CARRY 



BIT 
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4 ■* * * 

* « ■* 4 

* 4 * * 

' » * ■ * 

\ t r T ; 






4 .4 * + * * * * 

r i 
******** 

4 * * ** * + + 

fJ R 

4 ♦ + *** + .* 

1 

1 


I 


u 
1 
1 
ij 
1 
1 



1 
u 
c 
1 
1 



1 

1 
n 
o 
i 

r- 
\J 

.BLK 
.-■<LK 
• RLK 
.P.LH 



******** **** + **-**, Mc *, Mr ^.. + . 

S H r I S K IT S H T T c t , ****************************** 

********!* TISK IISH T I S P TTcR 

— *** T: * r _ . - r — ******J*:*:*tj^*_^ 

„„ .1 „ „ ALLL^LD TOKEN PAIR TABLE 

„!„ ' (t = iNVA| -ID,1 = VALIU) 

" <" "- OPERATOR ' 
"<" -- OPERAND 



b?.0 
100 

I? 



-- II 



• 1(1. 
II J M 

II \ II 

I. ,„ 

II ) II 
II ) II 

OPERATOR 

OPERATOR 

OPERATOR 

OPERATOR 

OPEkATOR 

OPERAND 

OPERAND 

OPERAND ■ 

OPERAND • 

OPERAND • 
n j, ii 



ii ( it 

)" 

OPERATOR 
OPERAND 



(" 

-._ ii » ii 

-- OPERATOR 

-- OPERAND 

-- "$" 

- "(" 
_ II J II 

- OPERATOR 

- OPERAND 

- "$M 

( 
"$•» __ 11)11 

"$" -- OPERATOR 
"i" -- OPERAND 
"$»' -- "$" 

ASSERTION TEXT BUFFER 

BREAKPOINTING ASSERTION POLISH STAPH 

DFT COUNT VECTOR 

UFT DESTINATION VECTOR 



■. - ii I ii 



no 



.- u r. c, 



ipt^: .HLK 12 ; UF1 SOURCE VECTOR 

:'"l: .TXT #<li7>lNVALID CHARACTER* 

:-•>: .TXT «<15X12Xl2>**** + ERR0K***** TOS uVERFLCh * 

I 1 "?.'-: .TXT *<15X12X]2> + ****ERR0P***** IPS uVERFLOIn # 

■ 1 '^: .T^T »<15X12>*»*+*EKR0R*«*** InvALIL I OKEr, NEAP ••* 

.TXT X3bX12>*****£KRCR***** UNMATCHED PARF NTHESES ff 

.TXT R<15X12X12>*****ERR0R***** ATX1 OVERFLOWS 

-: : ^7: .7 XT (Kl37>iNvAl. ID ACCUMULATOR* 

i~->': .txt »<157>INVAI IU COMMAND* 

l/1c ; - f " Lh iUL) ' IMMEDIATE ASSERTION PCi_iSH STACK 

:> ,| Tl: .TXT M<lb><15Xl2><l2>? « 

v'T?: .TXT b<lb><12> DYNAMIC Fl_Ol* TRACE <1s><1 ? >(| 

•'■'f*: . T *T ,;<15X12> h 

:i"f--»: .txt (4 > # 

•■"'t c : .txt « (« 

'i"T?.: .txt ») s 

" ,!77: 'l*! «<^><12> ADDR INST CARRY AC-0 U 

. T XT b AC-l AL-2 AC-3* 

.TXT «<T5X12> 

.TXT'I 

.TXT n H 

m!it ( -»: .TXT H<lbX12>H^Ll : H 

" Miq : .TXT »<<lbXl2>FAlLURL: * 

ntitft. .TXT H<15X12>PRf 'VIOL'S: 8 

"'HP; .TXT « AC-tt 

•»'nr: .TXT K15><12> FALSE)? 

•)"7r. : .TXT »»<1&><12> TRUE » 

.TXT g 1 

'< ■'"" ■: .TXT KlbX12> SYMBOL TABLES 

.TXT «<lbXl2X12>LDCATlON SYMBOL ADDRESS* 

.TxT #<lbX12> . „ 

n ITT : .TXT s<lbXlb><12> ft 

'"•TO: .TXT X15X12>F;SCAPE: ii 



Ill 



s ' ,<: ■ .^LK iOL j SCKATCHPAD POLISH STAC* 

.TXT"' l 

•TXTM 1 

<<*'''.-: ,ixt (t *AC0<UU><nc>», ; RLScRVEP PORTION OF SYMBOL TABLE 

;' ; f. w aO 

.TXT /;*/ C1<L0><DU>« 
fjF *iAl 

.TXT (t*t\l2.<UUXVU>U 

new a? 

.TXT «*AC3<tO><nu>tt 

new a 5 

.TXT M*CI3IT<00>ft 

f'i t W C Y 

.TXT ff*PL<OUXUn><(Ju>tt 

riF.WPC 

. rxTM u 

. T X I M u 
sv,, : ,f> LK iKU- ; US£K-OEFlNEO PORTION OF SYMBOL TABLE 

i~<=: .PLK 100 ! TEMPORARY OPERAND STACK 

'■*<* + -»«*****♦******♦**************• ♦♦*******»**»*»„» # + <IJt]|t# + I>J> » 1>]>#lf # „ ##]> 
l N R E L BUFFERS, STACKS AND TAbLES 

:< ****************** *******************#***#*****t#^ ## * ##### , # + 1# ,; #t + <( , 1><#<: + #<li|i 

• v****, ******»*******,»* »******************»*************♦******#♦**»♦♦*,**»„*» 
.**** ' 1, * + ****^********+»* + **********************»*** ) ,** 1 ,****** 1 ,*****^***,* 1(r ^» + » 
5 A L A i) U I N DCBUGGEK — VtRSION 1 

: uttx ******* ♦**♦**♦♦*** ♦ + * ***********♦***************♦*•♦***♦♦***»*»***»„»»„,»<,» 
: . ♦ + **** + ** + **»***** + ***»*************** + ** + **** lfclMl * + + + + » 1> » + 1(1>:|[ », t , %1> + <Mt 
.END 
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APPENDIX E: CALL TREES OF THE ALADDIN ROUTINES 
The figures in this appendix show the first-level subroutine call 
trees for the command monitor and command handlers, and the complete 
subroutine call trees for the utility routines (no trees are shown for 
primitive utilities such as "GETG" and "PUTC" which call no other 
routines). At all levels in the trees, those routines called directly 
by some other routine are listed alphabetically from left to right 
below the calling routine. 



















ACM 




BCM 




ECM 




Fig. A^. Call tree for the command monitor "ALA". 



H 
U3 
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Fig. A5. Gall tree for the command handler "ACM". 




PSB 



Fig. A6. Call tree for the command handler "BCM". 
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Fig. A7. Call tree for the command handler "ECM". 





PCM 
































B2D 




B20 




PUTB 



Fig. A8. Gall tree for the command handler "PCM". 
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ICM 




















PSB 




PSE 




Fig. A9. Call tree for the command handler "ICM". 





PUTB 




Fig. A10. Call tree for the command handler "MGM". 
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Fig. All. Call tree for the command handler "SCM". 







Fig. A12. Call trees for the utilities "ALN" and ' 



and "BCHK". 
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Fig. A13. Gall tree for the utility "BRK". 
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Fig. A14. Gall trees for the utilities "B2D", "B20" and "CBIT". 








Fig. A15. Call tree for the utility "DMP". 
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GAT 






































GETC 




PUTB 




PUTC 




SP3 






















PUTC 




PUTC 



Fig, A16, Call tree for the utility "GAT". 
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Fig. A17. Call tree for the utility "HLT". 












Fig. A18. Call tree for the utility "NTKN". 
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Fig. A19. Gall tree for the utility "02B". 




















OCT 




RNAC 




SRCH 



Fig. A20. Gall tree for the utility "PSB". 






125 









Fig. A21. Call trees for the utilities "PSHI" and "PSHT". 







Fig. A22. Call trees for the utilities "PUTB" and "SP3", 
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TISR 














DMP 
































B20 




CBIT 




PUTB 




SP3 
























PUTC 




PUTG 




PUTG 




PUTC 



Fig. A23. Call tree for the utility "TISR". 
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APPENDIX F: ALADDIN STACK FORMATS 
The figures In this appendix show the internal stack formats used 
in the NOVA implementation of ALADDIN. 
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,st» 



Entry- 
Code 


Entry- 
Value 



(2 -word Polish stack entry) 



Entry type 
Fence 
Unused 
Operator 

Symbolic operand 
Literal operand 



Entry code 
-1 

1 
2 
4 



Entry value 



Operator's ID 
Symbol table address 
Literal's octal value 



Fig. A24. Polish stack internal format. 



Operator 
ID 



Operator 
Priority 



(2-word temporary operator stack entry) 
Operator ID 



"$»' 


-l 





II.J.II 





k 


"_" 


l 


k 


M_.lt 


2 


3 


*»0" 


3 


3 


K^ it 


4 


3 


it^ti 
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Fig. A25. Temporary operator stack internal format. 
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January 7, 198 



Professor Richard E. Fairley 
Computer Science Department 
Colorado State University 
Fort Collins, Colorado 80521 



Dear Professor Fairley: 



May I have a copy of the listings and documentation on your 
ALADDIN system, as offered in your paper on that system in IEEE 
Transactions on Software Engineering for July 1979. Thank you. 

Yours sincerely, 
Mark Halpern 
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